公告

---

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-publish-pdf

目的

这篇教程将教会你使用 CorelDRAW VBA代码来将文档发布(导出)为PDF文档并进行文档设置的方法。

如何发布PDF

将文档发布为PDF，只需要两个步骤：
第一步，设置PDF属性（如果采用默认PDF设置，那么这一步可以省略）。
第二步，导出到文件。

创建文档

创建一个新文档，创建至少5个页面，每个页面可以适当添加些内容。

无对话框导出

你可以使用 Document.PDFSettings 属性来定义文档的PDF相关设置。这个设置其实是一个类型为 PDFVBASettings 的对象，该对象包含了所有能够通过PDF导出对话框设置的属性。也就是说，通过直接设置这个对象的值，就可以实现无对话框导出。

注意：要导出的目标路径如果有多层目录，则该目录必须存在，如果不存在应该调用目录创建函数 MkDir。这个函数也只能创建单层目录，无法创建多个不存在的目录。要一次性创建多个不存在的目录，可以考虑使用 FileSystemObject 运行时模块，本文不做介绍。

下面的VBA代码将导出当前文档第2~3页、第5页dd为一个名称为 MyPDF.pdf 的PDF文件：

' 获取当前文档
Dim doc As Document
Set doc = ActiveDocument

' 设置文档PDF属性
With doc.PDFSettings
    .Author = "Zebe" ' 作者
    .Bookmarks = True ' 是否生成书签 
    .ColorMode = pdfRGB ' 颜色模式
    .ComplexFillsAsBitmaps = False ' 将复杂填充作为图像
    .CompressText = True ' 是否压缩文本
    .DownsampleGray = True
    .EmbedBaseFonts = True ' 嵌入基础字体
    .EmbedFonts = True ' 嵌入字体
    .Hyperlinks = True ' 是否生成超级链接
    .Keywords = "PDF, Corel, CorelDRAW, 导出PDF, 发布PDF"
    .Linearize = True
    .PageRange = "2-3, 5" ' 页面范围
    .pdfVersion = pdfVersion13 ' PDF版本
    .PublishRange = pdfPageRange ' 发布范围
    .TrueTypeToType1 = True ' TrueType字体转换
End With

' 导出到本地磁盘（目标文件夹必须存在，否则运行会异常）
doc.PublishToPDF "D:\temp\data\MyPDF.pdf"
MsgBox "导出PDF成功！"

有对话框导出

下面的VBA代码可以显示一个导出对话框，提供给用户更灵活的设置。

' 获取当前文档
Dim doc As Document
Set doc = ActiveDocument

' 判断是否设置了显示对话框，如果是则调用默认设置进行导出
If doc.PDFSettings.ShowDialog = True Then
    doc.PublishToPDF "D:\temp\data\MyPDF2.pdf"
    MsgBox "导出PDF成功！"
End If

---

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-publish-pdf