|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名" H: k) ]9 m! r5 Q; v: o
5 `. `, |- }4 J我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开5 P! W% J, v3 ]5 i# }0 _
* h0 m1 F- g3 I+ y6 Q; q9 K6 L
代码如下，请大虾指点，谢谢& D2 [) W% m8 w
2 n# K+ R6 E" w! [5 J( |- . Y$ [! B6 s; T
- ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息
$ S* g' q0 n) h: O - ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer7 n0 _- r9 c4 m5 i% y
- ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
) X3 K P2 L5 C+ c4 u - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
9 l" ]- ~4 s- S9 _4 T2 X - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
- t. _( h2 R$ {" `$ g- h - ' RegCloseKey Result# v* y9 F) X$ J& l
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double
9 T; e: J' W( h- N' z2 B, R9 c - Dim path11 As String; @5 p) y+ R2 m6 c4 F+ Z
- path11 = "D:\123.pdf"( y$ b: `% v, ]. ?. z
- Scal = 39$ a% J1 v2 y6 }
- point1(0) = 0 '安装图1
* H4 n1 ? D' r. T - point1(1) = 0
. |2 t+ @" z5 Y. |) L5 d3 ~ - point2(0) = 420 * Scal
& F% O7 U4 @% n$ y. \* y. \ - point2(1) = 297 * Scal
' L8 H, u/ a. X - ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()1 Y9 x$ \( q4 W- D' H; F, {, l
- ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()8 C, f+ z" n3 f5 `$ y x9 z
- ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees. U5 E2 ~# s4 ?; D' D( N+ F8 m4 R% |1 {
- ThisDrawing.Regen acActiveViewport" g6 j& v, P+ V I/ U
- ThisDrawing.Plot.NumberOfCopies = 1" l: n3 y7 [3 T0 i2 ]4 x( b/ P
- ThisDrawing.ModelSpace.Layout.PlotType = acWindow& L7 e1 M9 f& ^
- ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
, @0 c& z* K* v! C. T - ThisDrawing.ModelSpace.Layout.CenterPlot = True
$ R- y& X: G( g$ o - ThisDrawing.Plot.QuietErrorMode = True5 o& f! {" [* ^( @) `) T( m: n. R, R0 k6 F
-
& z) {4 v) ]; \! Y8 a6 V2 B6 q5 H+ M -
* C3 ^5 X& w1 ]2 i+ h5 s: e - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
2 ?9 y' A D7 s - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
8 [/ X7 ?; _. }; b) { - ' RegCloseKey Result
0 }4 S8 \; j L2 L - ThisDrawing.Plot.PlotToFile path113 |4 x! a: x+ M. f$ F+ h* n2 H
- / R2 B/ P" u3 u+ s$ r# w. O3 P! e
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主