VBA使用Acrobat Distiller生成PDF文件[通俗易懂]

VBA使用Acrobat Distiller生成PDF文件[通俗易懂]原理如下:1.使用AcrobatDistiller打印激活worksheetorrange生成postscript文件2.使用AcrobatDistillerAPI将postscript转化成.PDF文件 首先,在VBA工程中引用AcrobatDistiller然后,进行AcrobatDistiller的打印设置(必须,否则转化出错!)

原理如下:
1. 使用Acrobat Distiller打印激活worksheet or range生成postscript文件
2. 使用Acrobat Distiller API 将postscript转化成 .PDF 文件
 
首先,在VBA工程中引用Acrobat Distiller
VBA使用Acrobat Distiller生成PDF文件[通俗易懂]
然后,进行Acrobat Distiller的打印设置(必须,否则转化出错!)
VBA使用Acrobat Distiller生成PDF文件[通俗易懂]
将 Do not send fonts to “Adobe PDF” 选项钩选掉(不选)
 
VBA使用Acrobat Distiller生成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文件了。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/10810.html

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注