|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名% ?) D" b6 V4 P/ F6 f7 p2 l
4 c8 d& b6 K; Z" P7 N: L) A3 x
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
( k& ]* d" N9 }7 U; k( N8 y2 A4 g7 g" ?2 `2 M: p$ j
代码如下，请大虾指点，谢谢
4 I, M8 T% I! K- W+ T9 i& C# K3 Z3 }( r/ v5 @
-
9 d0 q' ^# [- p. X1 n' q* P# P7 [( b - ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息9 }: N; Z% Y7 ?3 l) D
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer9 S6 I$ r- a/ G
- ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A36 O$ s' K4 h7 d' }
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result' h Y# \2 j) N# }9 N
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
/ g5 L, ?( ^# |& b: t/ G. c - ' RegCloseKey Result, j7 _% A& [+ Z) O
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double
# @. l: Q* y# e6 W' R( m- N& v. g - Dim path11 As String
7 w8 O5 [8 b3 R7 x. j' B- v - path11 = "D:\123.pdf"
: D) }9 {+ Z1 p - Scal = 390 N$ u# L& j W) R2 Z
- point1(0) = 0 '安装图1+ H5 |- m/ }+ S2 ?; V6 R
- point1(1) = 0
% U( B4 W( d! @) _2 [4 ~5 T - point2(0) = 420 * Scal0 M S3 L0 X! Q. M2 H. `' n+ X: d1 L
- point2(1) = 297 * Scal; I* J% F9 g, n$ J
- ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
) M0 ]2 l @2 c: h$ g4 E - ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
- x M- j4 ^0 x {$ D - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
2 @' Z; _' q5 j; w: O, m/ y7 E8 n; G - ThisDrawing.Regen acActiveViewport
, d* g5 I% C; k6 Z - ThisDrawing.Plot.NumberOfCopies = 1
$ g0 V# Z. v: W& m4 ?+ k - ThisDrawing.ModelSpace.Layout.PlotType = acWindow
# S R* m$ g) n5 ]" ] - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit4 P' d! i5 n! x8 ]9 k7 ~
- ThisDrawing.ModelSpace.Layout.CenterPlot = True
7 G- b, c2 ]! |" Z% L/ P! V. L; y1 W - ThisDrawing.Plot.QuietErrorMode = True1 |( o( }$ D/ @$ w& C
- 7 k' C1 i4 d6 K2 m6 s! O
- ' F( `5 b( {- H5 Q
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result* e9 M* U7 H5 x+ S- B
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4# w; Q4 t% \$ [2 S8 v
- ' RegCloseKey Result1 P) [, \- z( S6 L
- ThisDrawing.Plot.PlotToFile path11( v+ W: m) A* [1 B8 P. {
-
/ F+ p. g! M; r1 }
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主