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

157787698 · 发表于 2011-9-2 13:48:41

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

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

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

5 {5 {0 T5 N/ u( n3 ?" m
ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息6 M p! J! o+ t J. Y; c7 K
ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
8 s/ d2 ~5 p0 l" e
ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
t7 v4 j8 L# n) o: ~% t' w
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
7 [# l( u" Z) y4 Z& h2 V
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
* O% j- C: \5 O( ]9 a5 ~
' RegCloseKey Result8 y" k" t: b0 {; l" q' N7 B4 F2 `
Dim point1(0 To 1) As Double, point2(0 To 1) As Double
; U) \- ]1 ?7 g$ ^, o
Dim path11 As String1 p7 A9 b5 q! L
path11 = "D:\123.pdf": K8 a% a- ^5 O8 F6 t
Scal = 39
8 \& Q+ [* }& K3 B8 T
point1(0) = 0 '安装图1
' m, I5 g5 Q- H
point1(1) = 0
Z3 y8 e6 f% w, w- }
point2(0) = 420 * Scal
5 v6 C* L8 z; R
point2(1) = 297 * Scal
, S. M: q9 V3 |- m+ k- C
ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()9 ]1 z& u9 r* M: R+ l
ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
# W2 `) Y4 H! n
ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
% x& k: h+ F6 w, p" |4 [" s/ B
ThisDrawing.Regen acActiveViewport$ m8 g5 _# M3 y
ThisDrawing.Plot.NumberOfCopies = 1
; b* g- s4 `# H' F i% v4 Q5 v/ b% K
ThisDrawing.ModelSpace.Layout.PlotType = acWindow
) u2 @# u! i* _* l
ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
3 f8 s0 x5 E& k& ?8 h7 h
ThisDrawing.ModelSpace.Layout.CenterPlot = True: D6 K |" U! w' k. u9 S
ThisDrawing.Plot.QuietErrorMode = True+ v7 T) h: B4 y& K1 j4 g1 Y
, _* U( _% s$ ~# n- K9 B6 U8 r4 Z
" ^- U6 q% T' | D8 ?* A
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result" @$ o% B Q- T$ l1 W& O
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
3 K0 T' k" j' `, F
' RegCloseKey Result; p( ?0 {5 r) w! G( j$ o& I9 T
ThisDrawing.Plot.PlotToFile path11& A6 Q: O* w+ A! H
. W& l1 u1 W$ K) R, C7 W

复制代码

woaishuijia · 发表于 2011-9-2 21:24:33

1# 157787698

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

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

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

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

157787698 · 发表于 2011-9-15 10:11:50

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

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

[已答复] VBA:如何打印到Adobe PDF并自动输出？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。