|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名
! `0 Q% G- m! s
% G1 H' X+ ]$ c我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
3 g+ I$ e% \/ z) f$ l% r; z0 A" O+ S: K) z$ q
代码如下，请大虾指点，谢谢1 |, Z$ U+ ~, a1 m* A' `2 c
" C3 Q$ m1 E2 @ |* F% l8 I- + K) T% w( y j# c0 L6 U
- ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息
[, w) b/ B! P2 |0 A$ E - ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer! V% ~1 K% _0 M( u. L
- ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A30 E+ H' P+ a8 P! b1 h
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
& e a+ t& n1 S1 ?, s - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
( ~1 U0 u }" S7 ?# H2 M4 \9 @ c! s! i - ' RegCloseKey Result
" |; x& `8 J: J& H; E/ L - Dim point1(0 To 1) As Double, point2(0 To 1) As Double
+ `3 N7 j0 n# @6 ]+ Z" z - Dim path11 As String2 m! D8 E; e0 X4 i" r8 B+ @6 b
- path11 = "D:\123.pdf". E0 N" ?& k; @
- Scal = 39
$ K) x, t* n+ F9 ^: \& [ - point1(0) = 0 '安装图1+ \4 w6 Z% b; w: q
- point1(1) = 07 y- O5 x1 X& N* ~% v3 D3 W
- point2(0) = 420 * Scal
9 G: F v4 }/ g2 e# ^3 R - point2(1) = 297 * Scal
' i8 o( G! f. e7 c1 h - ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
+ H; T1 ~7 S+ A& C4 e; j - ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
# B+ m. @( { U9 H - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees* E" v1 D: D% s1 o/ E
- ThisDrawing.Regen acActiveViewport) `9 e8 Q" s) U7 [$ a/ ^
- ThisDrawing.Plot.NumberOfCopies = 1" a, S8 n: R, c' O& E3 f# `
- ThisDrawing.ModelSpace.Layout.PlotType = acWindow
+ m4 u' @0 [+ p! |" N - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
/ A. L0 {& E/ |' z2 B# U4 s! C - ThisDrawing.ModelSpace.Layout.CenterPlot = True6 q3 k& `0 u: U" F
- ThisDrawing.Plot.QuietErrorMode = True
2 K/ @* k( |) ?1 k. K) N; \ - ' j t! e) H* x( f- p2 {0 q
-
7 c# d$ H' O$ j: L c$ [ - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
# ?0 I( ~7 P ?; o - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
1 E6 v' \1 H, H) Z7 ] - ' RegCloseKey Result6 j R7 U' q6 c# C0 B( U
- ThisDrawing.Plot.PlotToFile path11
* s$ |" h# t9 G -
! D+ {) F/ s9 ~# r2 C' M7 r5 a
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主