通过

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)

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。