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

157787698

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

3 v7 O* f! q9 i3 q2 |9 ?% q我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开

代码如下，请大虾指点，谢谢
; u6 g! d& p: X# x3 I/ F( j) v

1.    
   3 z4 v! z: g- e. \- b; B
2.     ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo   '刷新打印设备信息
   5 L+ K0 ^  n4 J' I* j% P
3.     ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF"    '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
   4 D, }+ \9 b6 j% P0 i6 l" F
4.     ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3"    '设置纸型为A3
   
5. '    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
   
6. '    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
   " [! C* v. N# A7 f6 V* v, j
7. '    RegCloseKey Result
   # L  t9 d& i. ~) ~
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 f2 A* D9 P, w4 g, @0 _& D0 c
11.     Scal = 39
    $ s: u9 Q' F9 y: R! G9 w+ u# D2 b
12.     point1(0) = 0                                        '安装图1
    
13.     point1(1) = 0
    
14.     point2(0) = 420 * Scal
    ' X1 K* p3 U( a6 T% N6 f
15.     point2(1) = 297 * Scal
    5 h& g* u5 o2 _: ]4 y
16.     ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    # ]; F' k* Z. J8 u, l4 |
17.     ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    5 @. U; x  Z) J& |5 I& J  L/ j; T
18.     ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
    0 S- K, M4 {1 m# l6 {
19.     ThisDrawing.Regen acActiveViewport
    
20.     ThisDrawing.Plot.NumberOfCopies = 1
    
21.     ThisDrawing.ModelSpace.Layout.PlotType = acWindow
    
22.     ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
    + [6 i7 x! H# l# G% O5 U
23.     ThisDrawing.ModelSpace.Layout.CenterPlot = True
    
24.     ThisDrawing.Plot.QuietErrorMode = True
    " }7 I' ^2 T1 p
25.    
    
26.    
      M, f9 C! V+ Y3 c0 d* E
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.    
      F- A. ^7 U' u. G0 s- V; s

复制代码

woaishuijia

1# 157787698

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

原因在于PDF打印机的设置.
) a: w* {# ?' l- e打开它的"打印首选项"对话框,在"Adobe PDF 设置"选项卡下有四个下拉列表框,其中第三个是"Adobe PDF 输出文件夹",你的PDF打印机的该列表框中现在应该显示的是"提示 Adobe PDF 文件名",这就是你每次都要手动输入文件名的原因.
2 D- U$ }7 [8 Q1 Z点击该列表框右面的"浏览"按钮,为它赋予一个默认路径,打印时它就会以布局名称为文件名自动保存在默认目录下.
7 O4 ~$ V8 k; H另外,在其下面还有几个复选框,第一个是"查看 Adobe PDF 结果",如果选中了该复选框,每次PDF打印机创建了新文件后都会自动打开.不选中该复选框则不会打开创建的PDF文件
. G; n$ w+ L; ^$ V& h3 f. g2 i0 A4 y

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

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

157787698

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