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

没有更多推荐了,返回首页