|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
下面代码中,如果使用PLOTTODEVICE方法,是可以打印成功的,但是需要手动输入文件名 y& d, z5 D% \' l* z, L; P
0 t, i( G9 Q6 p: w# \9 }我想让程序中自动输出文件名,所以使用了plottofile方法,结果却无法正确输出了,输出的PDF文件打不开
/ e' O+ M* i. l" ~- S
7 ?: ]4 ?& c- H' w代码如下,请大虾指点,谢谢
9 x# s, }9 ?- \4 p5 Q
1 m! j q: I- `0 X+ A5 x-
& {4 f+ E, A' d - ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息2 j# P& m4 M. y
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
" u T$ e1 R- h0 F: J - ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
- _' Q6 ~1 B: E$ A4 |1 a9 G! k - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result' V" s( ~# m$ a: _1 M' o# b; n
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
$ }$ W; L7 ^3 Y" D7 X - ' RegCloseKey Result' }) x$ i. e" `: p& z- Q5 V4 r3 D
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double
b7 _: r) M' W1 M3 @ - Dim path11 As String# t* L# m% P5 F/ y. n* I z
- path11 = "D:\123.pdf"
) u) l9 X. Q8 Z; O - Scal = 39
: N/ \1 s: m3 ], h( H6 b - point1(0) = 0 '安装图1
3 s/ ^$ d* a3 D2 `( e3 `8 P% ` - point1(1) = 0$ [9 W. [ d5 R" v& |* J* D; u
- point2(0) = 420 * Scal/ b* d& X) } v3 q6 ]
- point2(1) = 297 * Scal
7 Y: N+ L( y0 r/ B% e" A - ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
8 }1 f" d0 ?4 H7 \ - ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()# w3 G( H) v7 P6 f5 m5 j9 H' e
- ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees$ ?2 e' [7 C/ f0 C5 z5 s+ _
- ThisDrawing.Regen acActiveViewport
* O0 T# X \7 x( z/ k. E( N- c1 x; q - ThisDrawing.Plot.NumberOfCopies = 1
% Z" o: h J0 p - ThisDrawing.ModelSpace.Layout.PlotType = acWindow5 e) e4 P$ U) e9 s- i# @$ F* T
- ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
3 c9 M! n7 k5 o, _; p - ThisDrawing.ModelSpace.Layout.CenterPlot = True
( F" u6 M8 z7 X! O6 B# W - ThisDrawing.Plot.QuietErrorMode = True
6 _7 y0 F, t" h# z2 J+ l -
* `7 Q5 I3 ~4 P+ {* t+ j -
F* @( ~* {8 F7 Q - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
# z( K" S3 |' ^# e9 e - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 46 Y' B/ w' ]! s/ H7 T% s9 B8 V F
- ' RegCloseKey Result
, r7 G/ m1 H5 g% v7 ]3 X9 m5 D2 ^ - ThisDrawing.Plot.PlotToFile path11% S a: w2 P O% J. k8 A
- . C) T/ k" U( ~, k, P5 S
复制代码 |
|