vba如何使用CAcroAVDoc打印pdf文件？

方法/步骤

代码如下

请点击输入图片描述

打开  批量打印PDF.xlsm 界面如图

请点击输入图片描述

点击 按钮批量打印PDF文件蓝色按钮，在d出的对话框中输入存放PDF文件的路径，确定。如图

请点击输入图片描述

开始加载打印文件到打印机进行打印，如图。

请点击输入图片描述

请点击输入图片描述

你可以运行用vba时，让其生成一个vbs文件，

在vbs文件内，用sendkey模拟键盘按ctrl+p enter进行打印。

或者直接用vbs控制打开后打印。

首先，加载引用，如图

然后，在打印机中对Acrobat Distiller的打印进行设置设置（必须，否则转化出错！）

Public Sub MakePDF(ByVal strPDFFileName As String)

          Dim strPSFileName As String

          Dim xlWorksheet As Worksheet

        Dim objPdfDistiller As PdfDistiller

          strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "/")) &"tmpPostScript.ps"

          Set xlWorksheet = ActiveSheet

        Call xlWorksheet.PrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)

          Set objPdfDistiller = New PdfDistiller

        Call objPdfDistiller.FileToPDF(strPSFileName, strPDFFileName, "")

          Call Kill(strPSFileName)

      End Sub

不明白为什么不用PDF插件直接生成PDF文档？

---