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

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

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

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

x

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

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

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

7 B4 L I: m+ L: e* E
ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息 N, w/ S _ `# U1 A
ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer4 ^% b7 t9 h) m4 X2 L- n) C
ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3' [* {* A% ^, S5 O' f1 Q: i
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result9 U& r- [( i9 v. Y& e7 t3 J
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 48 G' E0 C4 ?9 H
' RegCloseKey Result* h7 I# S0 c6 h2 M1 \
Dim point1(0 To 1) As Double, point2(0 To 1) As Double0 O. K. V9 T* g" @1 e: \) g/ A: l1 r
Dim path11 As String; h2 X: E. @0 E y k8 M/ o$ J( s
path11 = "D:\123.pdf"* \4 a+ }" n' u/ ^" X2 c
Scal = 39: D7 x# S6 W+ h! `# v z7 F7 z
point1(0) = 0 '安装图1
# [6 x' X( X' u& e2 |
point1(1) = 0
4 T, [5 a& H+ e% | V6 _: w6 p
point2(0) = 420 * Scal
: R* h p5 x5 Q! k) E( ^
point2(1) = 297 * Scal
ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
$ {5 @. S- e1 u
ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2(); x7 M. n* s! f0 x
ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
5 J& _0 H- u) o3 P& ?
ThisDrawing.Regen acActiveViewport8 f# v1 ?% g) b+ J6 \; w0 s* L! v
ThisDrawing.Plot.NumberOfCopies = 1* q0 d) k7 r' a+ C5 L
ThisDrawing.ModelSpace.Layout.PlotType = acWindow
l- s' P, F9 @3 _5 W
ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit! \$ F' G6 Z8 R' Q O
ThisDrawing.ModelSpace.Layout.CenterPlot = True
1 d' X1 f2 W% Z( S
ThisDrawing.Plot.QuietErrorMode = True
# b' \$ G% Y8 o Y( \- n
# U/ @5 F( x! P: W! B R# `% W
) _9 Q: S, f8 H( q. v
' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result N. \1 k. \* r4 E4 ]* ]
' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
! \ _8 ]# H& U; l5 y# f! {
' RegCloseKey Result
0 W6 i7 N. s* l9 F) Z2 _/ a
ThisDrawing.Plot.PlotToFile path11
% m+ ^4 _/ b) g: x2 k
, P9 t( Y+ a& I) j, R- z

复制代码

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
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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

浏览过的版块