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

157787698

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

& k8 S9 {: G, ~5 q) |) a: Z+ `我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开

代码如下，请大虾指点，谢谢

, Y; v! @/ K. U$ b" e8 c

1.    
   
2.     ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo   '刷新打印设备信息
   
3.     ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF"    '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
   7 }# R9 z) @& e* N  k
4.     ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"    '设置纸型为A3
   - b# B+ D) O+ m; ?3 k
5. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
   
6. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
   
7. '    RegCloseKey Result
   * h" L7 }' t( M, Q
8.     Dim point1(0 To 1) As Double, point2(0 To 1) As Double
   + C  S6 {- O& f% g6 C2 h
9.     Dim path11 As String
   ; K, y# {4 v; }
10.     path11 = "D:\123.pdf"
    7 n9 E% w/ U9 n) \* i& p
11.     Scal = 39
    
12.     point1(0) = 0                                        '安装图1
    * w' W; h5 ?% v" R+ n/ ]( O
13.     point1(1) = 0
    3 b, D( }/ J5 ~+ l2 q$ e. Z
14.     point2(0) = 420 * Scal
    & o. i8 Y+ F, s& u1 y
15.     point2(1) = 297 * Scal
    + j2 u! L7 e0 Z1 X' ]
16.     ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    6 F2 z+ p* Y+ _- m( H* b2 Z
17.     ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    . Z0 v" o4 y+ w8 D! t& F6 H' Z
18.     ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
      `* m' K5 e1 V% `
19.     ThisDrawing.Regen acActiveViewport
    6 [1 i3 t5 _: B9 |
20.     ThisDrawing.Plot.NumberOfCopies = 1
    + }  M  R7 g: Y9 h/ t/ w
21.     ThisDrawing.ModelSpace.Layout.PlotType = acWindow
    
22.     ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
    - J) g. N2 w/ y0 U7 u
23.     ThisDrawing.ModelSpace.Layout.CenterPlot = True
    ! V/ G4 b* ?! v+ \* P
24.     ThisDrawing.Plot.QuietErrorMode = True
    
25.    
    . A: W  z* O6 @0 s4 Z, M" h
26.    
    
27. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    
28. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    
29. '    RegCloseKey Result
    
30.     ThisDrawing.Plot.PlotToFile path11
    
31.    
    8 t$ }. E, T# f$ ^9 }

复制代码

woaishuijia

1# 157787698
! S0 A0 j- e- p0 m# e

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

5 J) S* A9 y1 G% V原因在于PDF打印机的设置.
/ K  M* w  d8 T# Y$ O; g2 L2 A  t4 a打开它的"打印首选项"对话框,在"Adobe PDF 设置"选项卡下有四个下拉列表框,其中第三个是"Adobe PDF 输出文件夹",你的PDF打印机的该列表框中现在应该显示的是"提示 Adobe PDF 文件名",这就是你每次都要手动输入文件名的原因.
点击该列表框右面的"浏览"按钮,为它赋予一个默认路径,打印时它就会以布局名称为文件名自动保存在默认目录下.
3 k0 P3 i& e; X8 v$ n' _) T$ z另外,在其下面还有几个复选框,第一个是"查看 Adobe PDF 结果",如果选中了该复选框,每次PDF打印机创建了新文件后都会自动打开.不选中该复选框则不会打开创建的PDF文件
% a" m6 ?' `% Y3 T3 A, F

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

6 A8 t- r: }4 P; Q不是所有的打印机都能打印到文件.这其中就有 Adobe PDF 打印机.
对该打印机使用plottofile方法,实际输出的是"*.plt"文件(尽管它老老实实地按你程序中的设置把文件的扩展名写成了pdf),用记事本打开生成的所谓PDF文件就可以看到.
2007以上版本自带的"DWG To PDF.pc3"可以打印到文件.

157787698

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