VBA:如何打印到Adobe PDF并自动输出？

157787698

下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名

# V9 _  W, r! K: p" ]6 S我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
/ B" @7 ^* A! i2 W
代码如下，请大虾指点，谢谢
4 I! R; D# z' T) ~5 V& h3 L

1.    
     A* M  |  O! D- Z# S& J  B/ G& R
2.     ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo   '刷新打印设备信息
   
3.     ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF"    '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
   
4.     ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"    '设置纸型为A3
   3 D8 X2 V3 @% {7 H+ d, S
5. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
   
6. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
   - c1 b$ F: O6 Q
7. '    RegCloseKey Result
   
8.     Dim point1(0 To 1) As Double, point2(0 To 1) As Double
   
9.     Dim path11 As String
   
10.     path11 = "D:\123.pdf"
    8 k+ w; B! A2 w) {
11.     Scal = 39
    
12.     point1(0) = 0                                        '安装图1
      u. J- v0 y/ Y) _% W( D9 g7 K
13.     point1(1) = 0
    
14.     point2(0) = 420 * Scal
    ( ]9 K0 M+ D5 w  f$ h. }
15.     point2(1) = 297 * Scal
    9 ^. W& d# x' ~. V; l- E6 R. ]
16.     ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    
17.     ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    & l+ S: i; o  r2 `9 |% S1 P
18.     ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
    + e! L8 c; U6 _8 j  }
19.     ThisDrawing.Regen acActiveViewport
    
20.     ThisDrawing.Plot.NumberOfCopies = 1
    2 H' u# i0 _2 s' d$ B: R
21.     ThisDrawing.ModelSpace.Layout.PlotType = acWindow
    $ ?8 J" n5 i6 x# Q, x" f9 L
22.     ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
    
23.     ThisDrawing.ModelSpace.Layout.CenterPlot = True
    
24.     ThisDrawing.Plot.QuietErrorMode = True
    
25.    
    ; |8 h3 e& i! g. b
26.    
    * f" e6 s/ `/ [
27. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    
28. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    
29. '    RegCloseKey Result
    1 R9 ?5 b; D: P! N; w+ U6 {
30.     ThisDrawing.Plot.PlotToFile path11
    
31.    
    

复制代码

woaishuijia

1# 157787698

下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名

原因在于PDF打印机的设置.
打开它的"打印首选项"对话框,在"Adobe PDF 设置"选项卡下有四个下拉列表框,其中第三个是"Adobe PDF 输出文件夹",你的PDF打印机的该列表框中现在应该显示的是"提示 Adobe PDF 文件名",这就是你每次都要手动输入文件名的原因.
6 G# X* z* G4 `. g点击该列表框右面的"浏览"按钮,为它赋予一个默认路径,打印时它就会以布局名称为文件名自动保存在默认目录下.
1 }( c2 @$ w) Z5 Y" j另外,在其下面还有几个复选框,第一个是"查看 Adobe PDF 结果",如果选中了该复选框,每次PDF打印机创建了新文件后都会自动打开.不选中该复选框则不会打开创建的PDF文件

我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开

不是所有的打印机都能打印到文件.这其中就有 Adobe PDF 打印机.
3 Q8 S' W3 Q( A* s对该打印机使用plottofile方法,实际输出的是"*.plt"文件(尽管它老老实实地按你程序中的设置把文件的扩展名写成了pdf),用记事本打开生成的所谓PDF文件就可以看到.
# D7 m; X* s2 g: R2007以上版本自带的"DWG To PDF.pc3"可以打印到文件.

157787698

为什么用"DWG To PDF.pc3"打印，边框那么大