|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名5 I, q! S* n& G8 G
7 z1 _% o* s) P* X7 A
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开8 M! ~$ P! z5 T: ?
1 d: k5 ]) b& B: k- i S0 Y( i- ?
代码如下，请大虾指点，谢谢
* x- D6 x; @' C! j# V9 f* z1 z( H3 S! B
- $ ]+ g0 e. |/ M! W0 j! h0 o
- ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息) `8 ?8 C' |/ j) l
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
+ ], z* A3 a2 V* [ - ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
F* {9 g9 U/ A# K M4 a9 ]+ [ - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result/ U; b( l/ h9 \( L- `0 v. m- S8 _
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
/ I+ C7 F8 |* X - ' RegCloseKey Result
% R/ @5 [0 {$ Z' I3 } - Dim point1(0 To 1) As Double, point2(0 To 1) As Double0 s1 k$ t% `4 F4 N/ T
- Dim path11 As String
; R3 V r! x' y: p: U. u$ ` - path11 = "D:\123.pdf": [7 \$ E! A+ {* i
- Scal = 39
5 |% O( q7 y* R: ]0 w% j, x- K - point1(0) = 0 '安装图1
3 Y7 v# l: G7 G- H+ A; z$ s - point1(1) = 0
% p/ V! l$ k$ R3 O - point2(0) = 420 * Scal L$ A; H' S# X9 `$ u- P
- point2(1) = 297 * Scal
- ^" d' d0 S4 @5 B" _ - ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()' D: R( c' O! A- ^
- ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
6 c0 M2 X. }. \8 @/ u" N - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees1 I0 h" |. r, E, ]# b2 w1 K
- ThisDrawing.Regen acActiveViewport
) M7 l; d+ S, m* T$ O - ThisDrawing.Plot.NumberOfCopies = 1
5 e0 Q( n1 C7 ]7 N2 f - ThisDrawing.ModelSpace.Layout.PlotType = acWindow( y# [2 J1 ^2 s# D
- ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit3 j5 y1 B7 @& d; a3 m; x3 T
- ThisDrawing.ModelSpace.Layout.CenterPlot = True
& a; V6 x% o8 |. N - ThisDrawing.Plot.QuietErrorMode = True% T5 l* n! U" U1 \
-
2 y& Z( @% \6 e5 K* C M5 ^ - : `! o$ j4 U! \4 ~$ J
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result/ B) a* y8 N8 Q; |( e: n& k" W
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
B2 z" s2 V# l8 a( u3 t - ' RegCloseKey Result
; {3 O2 D$ b# y6 G! `2 E& I - ThisDrawing.Plot.PlotToFile path117 O, T( k8 m" C& |; [ r1 Q
-
& ]: h6 s) V* N% {' [+ M6 J, X+ [+ I- M
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主