求助自动打印pdf问题

zingery

求助自动打印pdf问题

我在word里面想自动打印PDF。安装了acrobat，但在打印pdf文档的时候总是要出来对话框提示保存。

如何能自动保存，用自动录制宏的办法解决不了问题。

用sendkeys好像也不可以。

我的宏代码如下

Sub Macro3() Application.Run MacroName:="CreatePDFAndDoNotCloseApp"

SendKeys "{ENTER}" End Sub

求教各位，是在哪里出了问题呢？

多谢了。

守柔

你的问题,我们通常没有遇到,也不知出现了什么对话框,"CreatePDFAndDoNotCloseApp"这个命令又从哪儿来?

只是凭我的经验,你修改一下代码,看一下:

Sub Macro3() SendKeys "{ENTER}", False Application.Run MacroName:="CreatePDFAndDoNotCloseApp" End Sub

zingery

以下是引用守柔在2005-9-15 5:38:08的发言：

你的问题,我们通常没有遇到,也不知出现了什么对话框,"CreatePDFAndDoNotCloseApp"这个命令又从哪儿来?

只是凭我的经验,你修改一下代码,看一下:

Sub Macro3() SendKeys "{ENTER}", False Application.Run MacroName:="CreatePDFAndDoNotCloseApp" End Sub

谢谢。CreatePDFAndDoNotCloseApp这个命令是安装了acrobat之后，acrobat向word添加的一系列的宏中的一个，我以为和使用distiller打印机功能基本相同（打印机也需要保存文件）。

后来根据楼主的思路，直接调用打印机

Sub Macro3() ' ' Macro3 Macro ' SendKeys "{ENTER}", False Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub

成功了，多谢！