VBA使用Acrobat Distiller生成PDF文件

原理如下：

1. 使用Acrobat Distiller打印激活worksheet or range生成postscript文件

2. 使用Acrobat Distiller API 将postscript转化成 .PDF 文件

 

首先，在VBA工程中引用Acrobat Distiller

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

将 Do not send fonts to "Adobe PDF" 选项钩选掉（不选）

 

代码：

        Public Sub MakePDF(ByVal strPDFFileName As String)

 

            ' Define the postscript and .pdf file names.

            Dim strPSFileName As String

 

            Dim xlWorksheet As Worksheet

            Dim objPdfDistiller As PdfDistiller

 

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

 

            ' Print the Excel ActiveSheet to the postscript file

            Set xlWorksheet = ActiveSheet

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

 

            ' Convert the postscript file to .pdf

            Set objPdfDistiller = New PdfDistiller

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

 

            ' Finally, delete the postscript file

            Call Kill(strPSFileName)

 

        End Sub

 

程序调用的时候，需要修改Adobe PDF Settings的默认设置：

开始菜单  ⇒  设定  ⇒  打印机 ⇒  选择Adobe PDF，右键选属性 ⇒  选择"详细设定"选项卡 ⇒ 点击"标准设定"按钮 ⇒ 钩选掉"Do no send fonts to 'Adobe PDF'"

 

调用： Sub MakePDFApp() Call MakePDF("c:/firefox.pdf") End Sub 这样就能在指定位置生成指定的PDF文件了。