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文件了。