|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名
. F" a1 M6 Y3 V% @! U$ y/ T4 x
7 a2 @1 ?! W3 H. b7 b5 L9 o我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开0 U" ~1 x3 u; ]- R5 p' A
; F8 c; A: j* ]+ b代码如下，请大虾指点，谢谢
; K. E; X/ H6 x' X5 G
9 x# B, {0 z3 F-
" a7 Q% A- p, h$ U) G1 O' t5 q. e - ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息
4 m5 R! u# u0 o6 | - ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
# M+ A# @1 T: `0 i' f8 D. L - ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
% h& x, W; C1 G0 r7 B8 B - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result- _( m0 P2 X9 U" d0 R# h
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
4 P( `- e3 u" R8 o, N - ' RegCloseKey Result+ I) E0 F0 y9 a2 D: `# |1 |
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double/ w% G! U) w2 @: p3 M' M6 l
- Dim path11 As String
, d, b/ k& f& f1 |0 [7 P' f5 u3 q - path11 = "D:\123.pdf"5 g9 |; z, \7 O( A% C0 y
- Scal = 39: P; Q9 u/ B% j: p
- point1(0) = 0 '安装图17 ?5 g& A4 u) P% L. T
- point1(1) = 07 S) M" f( ` c) ` Q" }
- point2(0) = 420 * Scal
% b3 |; X* s: M - point2(1) = 297 * Scal. W* I; U7 |* `+ x) J; I% S0 {
- ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()( P- ?( e# I$ m9 k d6 T9 M; E0 n! M
- ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()# m2 A$ Z# `; j3 F# O& b5 k1 u
- ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
+ [. H4 f3 A1 V% K9 K - ThisDrawing.Regen acActiveViewport
+ Q" }4 h5 w7 B" |& I, i- `( Y$ j - ThisDrawing.Plot.NumberOfCopies = 1
* N; T7 i- B* q+ A - ThisDrawing.ModelSpace.Layout.PlotType = acWindow
# s# n# F) e/ c& w b - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit- @$ q% }0 C, T7 l# d4 W, j2 j
- ThisDrawing.ModelSpace.Layout.CenterPlot = True
4 F6 T" K7 h/ `( t: Z - ThisDrawing.Plot.QuietErrorMode = True
! ]! m- V2 }3 u' } -
) j* x& r- e/ \( p0 X -
( \) S. Y2 ]" j2 @9 X& G1 I; \ - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
4 z0 V) f$ @# e! A1 [& l9 L/ Q - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
' u+ B( X, D, G) w* L: L - ' RegCloseKey Result$ V/ [* |, y y7 o* W9 Y
- ThisDrawing.Plot.PlotToFile path119 g* ]# E; W) t* Q: R
- + M; ~, h0 j2 e6 N2 z) j1 C
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主