Application.PrintOut 方法 (Word)
打印全部或部分指定文档。
语法
表达式。PrintOut (Background、 Append、 Range、 OutputFileName、 From、 To、 Item、 Copies、 Pages、 PageType、 PrintToFile、 Collate、 FileName、 ActivePrinterMacGX、 ManualDuplexPrint、 PrintZoomColumn、 PrintZoomRow、 PrintZoomPaperWidth、 PrintZoomPaperHeight)
expression 是必需的。 一个代表 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Background | 可选 | Variant | 设置为 True 以有 Microsoft Word 打印文档的同时继续该宏。 |
| Append | 可选 | Variant | 设置为 True 以将指定的文档附加到由 OutputFileName 参数指定的文件名称。 假 以覆盖 OutputFileName 的内容。 |
| Range | 可选 | Variant | 页面范围。 可以是任何 WdPrintOutRange 常量。 |
| OutputFileName | 可选 | Variant | 如果当为 True 时，此参数将指定输出文件的路径和文件名称。 |
| From | 可选 | Variant | 起始页码范围设置为 wdPrintFromTo 。 |
| To | 可选 | Variant | 结束页码范围设置为 wdPrintFromTo 。 |
| Item | 可选 | Variant | 要打印的项。 可以是任何 WdPrintOutItem 常量。 |
| Copies | 可选 | Variant | 要打印的份数。 |
| Pages | 可选 | Variant | 要打印的页码和页码范围，中间用逗号分开。 例如，"2, 6-10"表示打印第 2 页以及第 6 至第 10 页。 |
| PageType | 可选 | Variant | 要打印的页面类型。 可以是任何 WdPrintOutPages 常量。 |
| PrintToFile | 可选 | Variant | 真 要发送打印机说明文件。 请确保指定的文件名称与 OutputFileName。 |
| Collate | 可选 | Variant | 在打印多份文档， 真 要打印文档的所有页面后再打印下一份。 |
| FileName | 可选 | Variant | 要打印的文档的路径和文件名称。 如果省略此参数，Word 将打印活动文档。 (只与该 应用程序 对象的可用)。 |
| ActivePrinterMacGX | 可选 | Variant | 该参数仅适用于 Microsoft Office Macintosh Edition。 有关该参数的其他信息，请参阅 Microsoft Office Macintosh Edition 附带的语言参考帮助。 |
| ManualDuplexPrint | 可选 | Variant | 真 要在无双面打印组件的打印机上打印双面文档。 如果该参数为 True ， PrintBackground 和 PrintReverse 属性将被忽略。 PrintOddPagesInAscendingOrder 和 PrintEvenPagesInAscendingOrder 属性用于控制在手动双面打印输出。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。 |
| PrintZoomColumn | 可选 | Variant | 表示 Word 在一页纸上水平放置的页数。 可以是 1、2、3 或 4 页。 与 PrintZoomRow 参数一同使用可在单张纸上打印多页文档。 |
| PrintZoomRow | 可选 | Variant | 表示 Word 在一页纸上垂直放置的页数。 可以是 1、2 或 4 页。 与 PrintZoomColumn 参数一同使用可在单张纸上打印多页文档。 |
| PrintZoomPaperWidth | 可选 | Variant | Word 将打印页面缩放到的宽度，以缇为单位（20 缇 = 1 磅；72 磅 = 1 英寸）。 |
| PrintZoomPaperHeight | 可选 | Variant | Word 将打印页面缩放到的高度，以缇为单位（20 缇 = 1 磅；72 磅 = 1 英寸）。 |
示例
本示例打印活动文档的当前页面。
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
本示例打印当前文件夹中的所有文档。 Dir 函数用于返回所有扩展名为".doc"的文件名。
adoc = Dir("*.DOC")
Do While adoc <> ""
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
本示例打印活动窗口中文档的前三页。
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
本示例打印活动文档中的备注。
If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.PrintOut Item:=wdPrintComments
End If
本示例将打印活动文档，每张纸上打印六页文档。
ActiveDocument.PrintOut PrintZoomColumn:=3, _
PrintZoomRow:=2
本示例按实际尺寸的 75% 打印活动文档。
ActiveDocument.PrintOut _
PrintZoomPaperWidth:=0.75 * (8.5 * 1440), _
PrintZoomPaperHeight:=0.75 * (11 * 1440)
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。