公告
本專欄的相關的文章已不在簡書同步更新仗扬，請直接訪問 VBA探秘 官方網(wǎng)站或關注微信公眾號獲取最新文章動態(tài)扑眉。
coreldraw-vba-publish-pdf
目的
這篇教程將教會你使用 CorelDRAW VBA代碼來將文檔發(fā)布(導出)為PDF文檔并進行文檔設置的方法。
如何發(fā)布PDF
將文檔發(fā)布為PDF卿樱，只需要兩個步驟：
第一步容劳，設置PDF屬性（如果采用默認PDF設置禽绪，那么這一步可以省略）。
第二步侣肄，導出到文件旧困。
創(chuàng)建文檔
創(chuàng)建一個新文檔，創(chuàng)建至少5個頁面稼锅，每個頁面可以適當添加些內容吼具。
無對話框導出
你可以使用 Document.PDFSettings 屬性來定義文檔的PDF相關設置。這個設置其實是一個類型為 PDFVBASettings 的對象矩距，該對象包含了所有能夠通過PDF導出對話框設置的屬性拗盒。也就是說，通過直接設置這個對象的值剩晴，就可以實現(xiàn)無對話框導出锣咒。
注意：要導出的目標路徑如果有多層目錄侵状，則該目錄必須存在，如果不存在應該調用目錄創(chuàng)建函數(shù) MkDir毅整。這個函數(shù)也只能創(chuàng)建單層目錄趣兄，無法創(chuàng)建多個不存在的目錄。要一次性創(chuàng)建多個不存在的目錄悼嫉，可以考慮使用 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, 發(fā)布PDF"
.Linearize = True
.PageRange = "2-3, 5" ' 頁面范圍
.pdfVersion = pdfVersion13 ' PDF版本
.PublishRange = pdfPageRange ' 發(fā)布范圍
.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
原創(chuàng)聲明：本文首發(fā)于個人CorelDRAW VBA博客迄汛，請尊重文章版權。
轉載請注明原文鏈接：http://www.cdrvba.com/coreldraw-vba-publish-pdf
