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

157787698

下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名
8 x- G: V4 s1 k/ [7 G! d: ?8 e- m
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
  H6 M7 S8 \6 {/ }4 ?# m
代码如下，请大虾指点，谢谢

- H! K5 A+ {  g+ J6 t  z; R) p+ _

1.    
   % D1 T. t+ `+ }1 ~; u
2.     ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo   '刷新打印设备信息
   2 r2 h9 ]& R% G& B
3.     ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF"    '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
   
4.     ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"    '设置纸型为A3
   8 ^+ }2 b% v9 ^4 D2 v0 s6 I; P" Y3 L
5. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
   5 P% X% o+ I' s) Z; a
6. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
   
7. '    RegCloseKey Result
   5 n& e7 B4 w* F+ |& |! F6 F
8.     Dim point1(0 To 1) As Double, point2(0 To 1) As Double
   
9.     Dim path11 As String
   7 W+ E* R: K3 Z# h6 i4 M% ~  d  {
10.     path11 = "D:\123.pdf"
    $ f7 T2 }7 r+ ?
11.     Scal = 39
    
12.     point1(0) = 0                                        '安装图1
    
13.     point1(1) = 0
      @7 P9 s  A+ L" _: Z; M5 W
14.     point2(0) = 420 * Scal
    
15.     point2(1) = 297 * Scal
    
16.     ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    / m) B0 O' z6 J1 ?& ^5 [5 k
17.     ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    $ S9 y7 x- Q2 @# e  q5 D" _6 Z; F
18.     ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
    
19.     ThisDrawing.Regen acActiveViewport
    
20.     ThisDrawing.Plot.NumberOfCopies = 1
    , `: V; A3 T2 r7 k- N$ P
21.     ThisDrawing.ModelSpace.Layout.PlotType = acWindow
    
22.     ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
    
23.     ThisDrawing.ModelSpace.Layout.CenterPlot = True
    8 @9 P3 e9 V$ l0 _4 k
24.     ThisDrawing.Plot.QuietErrorMode = True
    " ?; x8 y+ b0 u1 o2 R7 C0 r: K
25.    
    
26.    
    9 b4 y% e& h( c
27. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    $ j, V! y+ n6 Y
28. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    
29. '    RegCloseKey Result
    : @4 ^& Y" k+ I
30.     ThisDrawing.Plot.PlotToFile path11
    
31.    
    * d5 ]' F# r- x6 |/ J# Z; y9 y

复制代码

woaishuijia

1# 157787698

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

" A; J8 `! \) J原因在于PDF打印机的设置.
打开它的"打印首选项"对话框,在"Adobe PDF 设置"选项卡下有四个下拉列表框,其中第三个是"Adobe PDF 输出文件夹",你的PDF打印机的该列表框中现在应该显示的是"提示 Adobe PDF 文件名",这就是你每次都要手动输入文件名的原因.
点击该列表框右面的"浏览"按钮,为它赋予一个默认路径,打印时它就会以布局名称为文件名自动保存在默认目录下.
# |% j! m$ f0 j% r; i另外,在其下面还有几个复选框,第一个是"查看 Adobe PDF 结果",如果选中了该复选框,每次PDF打印机创建了新文件后都会自动打开.不选中该复选框则不会打开创建的PDF文件

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

不是所有的打印机都能打印到文件.这其中就有 Adobe PDF 打印机.
' Z( T. Y  m, y% S对该打印机使用plottofile方法,实际输出的是"*.plt"文件(尽管它老老实实地按你程序中的设置把文件的扩展名写成了pdf),用记事本打开生成的所谓PDF文件就可以看到.
2007以上版本自带的"DWG To PDF.pc3"可以打印到文件.

157787698

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