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

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

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

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

x

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

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

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

. X9 C3 A" q* T$ _ c
ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息
/ {3 R6 S" q! ?# H m' K" A! c+ [9 t
ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
" P) e$ z9 e; y6 P
ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3" b6 K* W8 Z% k" d$ A
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
# W$ `9 C! h3 w4 }: M
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
( s p- t: f' R3 ~6 f# m
' RegCloseKey Result
8 Z, B _5 x6 P! t& F( i% F! ^
Dim point1(0 To 1) As Double, point2(0 To 1) As Double
. X. C8 l- W; H
Dim path11 As String
$ ~4 M1 G8 P% r8 z
path11 = "D:\123.pdf"
. r/ I& `% i2 o* F; A. T6 P
Scal = 39
7 Q3 S# q& G( m/ Y# X
point1(0) = 0 '安装图17 T( x0 r4 \* M& |
point1(1) = 0# b/ K5 W9 S8 S9 Q+ `
point2(0) = 420 * Scal, K) Z( W- M( V0 [$ A( d
point2(1) = 297 * Scal$ b7 v4 }2 V% {8 m( J; Z8 D: v+ ^
ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()+ Z# E7 F: `) a6 c# q, w
ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
( c" X, s6 Y! s* F/ @8 C. q; `
ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees0 _3 Q- x$ U* s0 y) Q, h v$ e
ThisDrawing.Regen acActiveViewport
5 T& e0 m) B1 t9 r# k; r' o! o
ThisDrawing.Plot.NumberOfCopies = 17 }1 D8 }, e/ L6 p1 z0 j
ThisDrawing.ModelSpace.Layout.PlotType = acWindow
0 q4 n) q w2 M6 u1 Q
ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit, h7 g: }1 V# }
ThisDrawing.ModelSpace.Layout.CenterPlot = True
4 A5 g1 t* j5 |' Y9 ^* F& S
ThisDrawing.Plot.QuietErrorMode = True
% F8 C3 K$ g* {
0 @5 I7 K8 M+ p$ B% G
: ]% u& ~/ i8 M0 F: L, A0 ^
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result) i* v) O2 @! f) y7 ^
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
' H0 f( u- v4 G
' RegCloseKey Result
8 s+ p% }5 y" X7 t2 U1 y
ThisDrawing.Plot.PlotToFile path11
+ K/ d1 R1 Q8 `! q: V
" y% W" J2 W& i: D

复制代码

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并自动输出？

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