VBA使用Acrobat Distiller生成PDF文件
来源:互联网 发布:mac 远程协助怎么用 编辑:程序博客网 时间:2024/04/29 10:21
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文件了。
- VBA使用Acrobat Distiller生成PDF文件
- java-pdf-(itext+adobe acrobat+pdf模板)生成pdf文件
- 使用Qt生成PDF文件
- 使用iText生成pdf文件
- 使用iText生成PDF文件
- 使用Adobe Acrobat设置pdf的页码
- 用Adobe Distiller从ps产生包含各种字体的pdf文件
- 快速导出PDF文件中所有图片(使用Adobe Acrobat 10 )
- Windows下使用AcroRd32.exe(Adobe Acrobat Reader)打开PDF文件
- 使用Acrobat 在Windows/Temp下会生成大量的文件, 及解决方法
- Adobe Acrobat 打开PDF文件显示 “内容准备进度”窗口
- Adobe Acrobat 打开PDF文件显示 “内容准备进度”窗口
- Acrobat如何将word文件转换成pdf格式
- WinEdt 编辑器和 PDF 文件的 Acrobat 程序关联
- 使用ITXT生成PDF文件学习
- itext使用模板生成pdf文件
- C#使用itextsharp生成PDF文件
- 使用itext组件生成PDF文件
- 防火墙技术浅析
- 图像文件的引用。。。。
- 悲观了?
- 回家
- 悼念王选
- VBA使用Acrobat Distiller生成PDF文件
- 真是累坏了。
- 我的简历
- jsf faces-config.xml
- 我错了
- 内心独白
- SQL Tips:大数据量下的数据库日期操作问题
- 内心独白2
- 水榭歌台。