公告

---

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

coreldraw-vba-print-document

目的

这篇教程将教会你使用 CorelDRAW VBA代码打印文档（单个或者多个页面）。利用VBA打印文件很简单：几乎所有的打印设置，在“打印”对话框中都可以通过 Document.PrintSettings 属性来指定。通过这些属性的设置，打印文档是一件简单的事情，通过调用 Document.PrintOut 方法来实现打印。

代码演示

Sub main()
    ' 设置打印属性
    With ActiveDocument.PrintSettings
        .Copies = 3 ' 副本数量（打印份数）
        .PrintRange = prnPageRange ' 设置打印范围为页面区间
        .PageRange = "1, 3-4" ' 打印第1页、第3至4页
        .Options.PrintJobInfo = True ' 开启打印信息输出
        With .PostScript
            .DownloadType1 = True ' 开启下载类型
            .Level = prnPSLevel3 ' 设置 PostScript 的级别
        End With
    End With
    ' 调用打印方法
    ActiveDocument.PrintOut
End Sub

打印对话框说明

打印对话框中的每一页都有一个相应的对象模型类，其中包含该页的所有设置。下面的表格列出了这些类。

打印页选项	对应的对象模型
通用设置	PrintSettings类
布局设置	PrintSettings类、PrintLayout类
间距设置	PrintSeparations类、PrintTrapping类
印前设置	PrintPrepress类
PostScript设置	PrintPostScript类
杂项设置	PrintOptions类

说明：

• 你可以在VBA中使用布局选项。必要的话，你可以使用 PrintSettings.ShowDialog 方法来打开打印对话框。
• 如果你要打印的只是选中的图形而不是整个页面，把 PrintSettings.PrintRange 的属性设置为 prnSelection 即可。
• 你可以指定一个具体的打印机来进行打印。Application.Printers 列出了系统可用的打印机集合，设置 PrintSettings.Printer 属性即可指定具体的打印机。
• 要保存打印配置，使用 PrintSettings.Save 方法来保存配置即可。
• 要访问和加载一个已保存的打印配置，使用 PrintSettings.Load 方法，注意的是必须要指定配置文件的全路径。
• 如果要还原默认的打印设置，使用 PrintSettings.Reset 方法即可。

打印事件处理

在打印过程中，可以通过编写指定的打印事件来触发自定义功能，以下是事件列表：

• Application.DocumentBeforePrint：在应用程序级别，所有文档开始打印前触发。
• Document.BeforePrint：在文档级别，开始打印前触发。
• GlobalMacroStorage.DocumentBeforePrint：在全局宏级别，所有文档开始打印前触发。
• Application.DocumentAfterPrint：在应用程序级别，所有文档打印后触发。
• Document.AfterPrint：在文档级别，文档打印后触发。
• GlobalMacroStorage.DocumentAfterPrint：在全局宏级别，所有文档打印后触发。
• Application.QueryDocumentPrint：在应用程序级别，所有文档在请求打印时触发。
• Document.QueryPrint：在文档级别，文档在请求打印时触发。
• GlobalMacroStorage.QueryDocumentPrint：在全局宏级别，所有文档在请求打印时触发。

小结

使用VBA打印文件是经常使用、非常有用的功能，配合打印机的自动选择，可以实现自动创建文档、自动选择打印机进行打印功能，大大减少人工操作量。

---

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