|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名8 M7 M, [9 ?: @2 r9 n
8 k/ x6 S' \3 c7 s7 X
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
# Q$ M3 P9 ~' |; b% W: i5 e4 }6 }. O8 J! @. Z& F0 B4 T
代码如下，请大虾指点，谢谢
+ N( T! i# |8 W. N Q; u3 l1 p' K; j
-
/ [5 f8 X. M' c5 K; c+ X3 W - ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息/ p2 H5 b# F) x; _3 @
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
/ d5 l/ t- k+ b - ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A37 o8 B" @; Q; a8 W& N
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
; B: V6 R1 }2 s: I - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
( X! o" X7 W5 i6 _7 { v - ' RegCloseKey Result- H7 g# `2 i2 u; ?* D# {
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double/ L/ T4 Z m7 U, A7 |
- Dim path11 As String
+ G& K& `+ x$ G# M - path11 = "D:\123.pdf"
$ u! M+ K1 R! J' Q - Scal = 39
9 @* V' u8 Y% f) Y - point1(0) = 0 '安装图1
9 i& g6 g( u, V% e3 x0 A - point1(1) = 0
9 s5 R! [; G; ~1 q - point2(0) = 420 * Scal. O3 i; C$ ^1 Y9 ^+ [* F
- point2(1) = 297 * Scal) ]3 c+ @4 I. z# l- {3 M3 o
- ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2(), a6 b3 K7 D! Q9 s
- ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
" d8 i' B1 R5 J: w9 ?; p - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
1 L# l7 O% j* M" e. ]8 ` - ThisDrawing.Regen acActiveViewport
( x0 Y! X( X' T9 x3 f1 n - ThisDrawing.Plot.NumberOfCopies = 1
, N1 u1 B, c$ y. P8 M% |2 o - ThisDrawing.ModelSpace.Layout.PlotType = acWindow
* Y' E$ ~- {& g: _% t - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
+ f7 J: D* j: j( Z2 W5 a - ThisDrawing.ModelSpace.Layout.CenterPlot = True: D9 ^* f: s) w6 g& H. Q
- ThisDrawing.Plot.QuietErrorMode = True% t. M; @' i0 J$ G* V4 ~
- $ z8 ]2 Q" M: j* ^' s0 j
-
' j: L) n, Q$ H- j8 C8 | - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
, N7 i9 |/ V: i) I8 @0 n0 e - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4. u# ?7 u+ @$ r4 U8 f0 ?" j
- ' RegCloseKey Result
: O$ r: S) s/ ~. X' }* Q - ThisDrawing.Plot.PlotToFile path11
3 `6 Y) r% k5 p( I! d/ r9 m# J; w - & U+ ]3 `$ } m3 V/ T% I
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主