VBA编程批量打印Word文件，并指定从几页打到几页

Kllies

求一个VBA代码能批量打印Word文件，并指定从几页打到几页。就是说每个word有3页，但我只打它的第2页，注意是批量打，不是单个文件打印。

duquancai

Application.PrintOut 方法
打印指定文档的全部或部分内容。
语法

表达式.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)

表达式   必选。一个代表 Application 对象的变量。

参数

名称 必选/可选 数据类型 说明
Background 可选 Variant 如果将该属性设置为 True，则 Microsoft Word 在打印文档时继续运行宏。
Append 可选 Variant 如果将该属性设置为 True，则将指定文档附加到 OutputFileName 参数所指定的文件名。如果将该属性设置为 False，则覆盖 OutputFileName 参数所指定文件的内容。
Range 可选 Variant 页码范围。可以是任意 WdPrintOutRange 常量。
OutputFileName 可选 Variant 如果 PrintToFile 为 True，则该参数指定输出文件的路径和文件名。
From 可选 Variant 如果将 Range 设置为 wdPrintFromTo，则该参数指定起始页码。
To 可选 Variant 如果将 Range 设置为 wdPrintFromTo，则该参数指定结束页码。
Item 可选 Variant 要打印的项目。可以是任意 WdPrintOutItem 常量。
Copies 可选 Variant 要打印的份数。
Pages 可选 Variant 要打印的页码和页码范围，中间用逗号分开。例如，“2, 6-10”表示打印第 2 页以及第 6 至第 10 页。
PageType 可选 Variant 要打印的页面类型。可以是任意 WdPrintOutPages 常量。
PrintToFile 可选 Variant 如果该属性值为 True，则将打印指令发送到文件。请确保使用 OutputFileName 指定文件名。
Collate 可选 Variant 在打印文档的多份副本时，如果该属性值为 True，则完成打印所有页面后再打印下一份副本。
FileName 可选 Variant 要打印的文档的路径和文件名。如果省略该参数，Word 将打印活动文档（仅应用于 Application 对象）。
ActivePrinterMacGX 可选 Variant 该参数仅适用于 Microsoft Office Macintosh Edition。有关该参数的其他信息，请参阅 Microsoft Office Macintosh Edition 附带的语言参考帮助。
ManualDuplexPrint 可选 Variant 如果该属性值为 True，则在无双面打印组件的打印机上打印双面文档。如果该属性值为 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 英寸）。

duquancai

Document.PrintOut 方法
打印指定文档的全部或部分内容。
语法

表达式.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)

表达式   必选。一个代表 Document 对象的变量。

参数

名称 必选/可选 数据类型 说明
Background 可选 Variant 如果将该属性设置为 True，则 Microsoft Word 在打印文档时继续运行宏。
Append 可选 Variant 如果将该属性设置为 True，则将指定文档附加到 OutputFileName 参数所指定的文件名。如果将该属性设置为 False，则覆盖 OutputFileName 参数所指定文件的内容。
Range 可选 Variant 页码范围。可以是任意 WdPrintOutRange 常量。
OutputFileName 可选 Variant 如果 PrintToFile 为 True，则该参数指定输出文件的路径和文件名。
From 可选 Variant 如果将 Range 设置为 wdPrintFromTo，则该参数指定起始页码。
To 可选 Variant 如果将 Range 设置为 wdPrintFromTo，则该参数指定结束页码。
Item 可选 Variant 要打印的项目。可以是任意 WdPrintOutItem 常量。
Copies 可选 Variant 要打印的份数。
Pages 可选 Variant 要打印的页码和页码范围，中间用逗号分开。例如，“2, 6-10”表示打印第 2 页以及第 6 至第 10 页。
PageType 可选 Variant 要打印的页面类型。可以是任意 WdPrintOutPages 常量。
PrintToFile 可选 Variant 如果该属性值为 True，则将打印指令发送到文件。请确保使用 OutputFileName 指定文件名。
Collate 可选 Variant 在打印文档的多份副本时，如果该属性值为 True，则完成打印所有页面后再打印下一份副本。
FileName 可选 Variant 要打印的文档的路径和文件名。如果省略该参数，Word 将打印活动文档（仅应用于 Application 对象）。
ActivePrinterMacGX 可选 Variant 该参数仅适用于 Microsoft Office Macintosh Edition。有关该参数的其他信息，请参阅 Microsoft Office Macintosh Edition 附带的语言参考帮助。
ManualDuplexPrint 可选 Variant 如果该属性值为 True，则在无双面打印组件的打印机上打印双面文档。如果该属性值为 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 英寸）。

duquancai

Global.ActivePrinter 属性
返回或设置活动打印机名称。可读/写 String 类型。
语法

表达式.ActivePrinter

表达式   一个代表 Global 对象的变量。

说明


使用 ActivePrinter 属性设置打印机会更改默认打印机。有关详细信息，请参阅设置 ActivePrinter 以更改系统默认打印机。

duquancai

批量文件打印 循环遍历文档 打印，关闭。。。。。。循环下一个！！！
最后就是  组合VBA代码！！！！

Kllies

duquancai 发表于 2017-5-22 20:07
批量文件打印 循环遍历文档 打印，关闭。。。。。。循环下一个！！！
最后就是  组合VBA代码！！！！

小白表示看了还是不懂

duquancai

Kllies 发表于 2017-5-23 13:26
小白表示看了还是不懂

那就是说 你等待别人写好代码，直接用就行了！对不起，你坐等大神给你写吧！

413191246se

楼主，我过去有一个批量打印的小宏，我改了一下，没测试打印，你自己试试吧，建议用2-3个文件的一个文件夹来打印试试，不一定正确：

1. Sub 循环遍历文件夹_批量打印()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i As Long, doc As Document, p As String, s As Section, j As Long, k As String, x As Long, t As Long, a$, b$
   
4.     a = InputBox("请输入起始打印页码！", "批量打印", "3")
   
5.     If a = "" Then Exit Sub
   
6.     b = InputBox("请输入终止打印页码！", "批量打印", "3")
   
7.     If b = "" Then Exit Sub
   
8.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
9.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
10.     Set fd = Nothing
    
11.     If MsgBox("是否打印文件夹 " & p & " ?", vbYesNo + vbExclamation, "循环遍历文件夹_批量打印") = vbNo Then Exit Sub
    
12.     k = InputBox("请输入整套打印份数！", "循环遍历文件夹_批量打印", "1")
    
13.     If k = "" Then Exit Sub
    
14.     For t = 1 To k
    
15.         With Application.FileSearch
    
16.             .NewSearch
    
17.             .LookIn = p
    
18.             .SearchSubFolders = True
    
19.             .FileName = "*.doc"
    
20.             If .Execute > 0 Then
    
21.                 For i = 1 To .FoundFiles.Count
    
22.                     Set doc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
    
23.                     For Each s In doc.Sections
    
24.                         With s.PageSetup
    
25.                             If .Orientation = wdOrientLandscape Then j = 1 Else j = 0
    
26.                             If .PaperSize <> wdPaperA4 Then .PaperSize = wdPaperA4: If j = 1 Then .Orientation = wdOrientLandscape
    
27.                         End With
    
28.                     Next
    
29.                     doc.PrintOut Range:=wdPrintFromTo, From:=a, To:=b
    
30.                     doc.Close savechanges:=wdDoNotSaveChanges
    
31.                 Next i
    
32.                 x = .FoundFiles.Count
    
33.             Else
    
34.                 MsgBox "未发现文件！", vbOKOnly + vbCritical, "循环遍历文件夹_批量打印": End
    
35.             End If
    
36.         End With
    
37.     Next t
    
38.     MsgBox "打印完毕！共打印 " & x & " 个文件！整套打印 " & k & " 份！", vbOKOnly + vbExclamation, "循环遍历文件夹_批量打印"
    
39. End Sub

复制代码