终于解决Excel批量打印word指定页码的问题

mythqiu

问题：无论如何指定打印页码，都是全部打印改文档，指定页码无效。

论坛搜索无果，在其他论坛百度搜素到一个案例，解决了。


期间测试，打印纸张无数（好在最近大量打印，也没浪费几张）。。。。

如果你也正受到这个问题的困扰，送点分。

其问题的关键我也在 代码 中指出，而且相当奇怪的是不指定页码，同一种方式居然不行！所有有了2个打印输出的写法。

word确实太奇怪了。。。。。

1. Sub PrintWD()
   
2. Rem word文件批量打印
   
3.     On Error Resume Next
   
4.     Dim fileToOpen, GetOpenFilename, App, iFile, cr
   
5.     Dim inputStr, pCop%, pPag$, WrdDOC
   
6.     fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)
   
7.     If Not IsArray(fileToOpen) Then
   
8.         Application.StatusBar = "没选择文件，退出打印。"
   
9.         Exit Sub   '如果没选，则退出
   
10.     Else
    
11.         inputStr = Application.InputBox("输入提示:(份数|打印页) " & Chr(10) & "打印页按1-3,5格式输入，不输入打印所有页", "MQ批量打印", "1|")
    
12.         If inputStr = False Then Exit Sub
    
13.         'MsgBox Split(inputStr, "|")(0)
    
14.         If Len(inputStr) > 0 Then
    
15.             If InStr(1, inputStr, "|", 1) > 0 Then
    
16.                 pCop = Split(inputStr, "|")(0)
    
17.                 pPag = Replace(Split(inputStr, "|")(1), "，", ",")  '转换逗号
    
18.                 If Len(pPag) = 0 Then pPag = ""
    
19.                 'MsgBox pPag
    
20.             Else
    
21.                 pCop = inputStr
    
22.                 pPag = ""
    
23.             End If
    
24.             If pCop = 0 Then pCop = 1
    
25.             'GoTo endline
    
26.             'On Error GoTo endline
    
27.             Set App = CreateObject("Word.Application")
    
28.             For Each iFile In fileToOpen
    
29.                 Set WrdDOC = App.Documents.Open(iFile)
    
30.                 'MsgBox pPag
    
31.                 If Len(pPag) > 0 Then
    
32.                     App.Documents(WrdDOC).PrintOut Range:=wdPrintRangeOfPages, Copies:=pCop, Pages:=pPag, Collate:=True, Background:=True, PrintToFile:=False, _
    
33.                             PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    
34.                             PrintZoomPaperHeight:=0
    
35.                      App.NormalTemplate.Saved = True '指定打印页码能成功的关键 参考 http://bbs.3s001.com/thread-253796-1-2.html
    
36.                 Else
    
37.                     App.Documents(WrdDOC).PrintOut Copies:=pCop, Pages:="", Collate:=True, Background:=True, PrintToFile:=False, _
    
38.                             PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    
39.                             PrintZoomPaperHeight:=0
    
40.                 End If
    
41.                 App.Documents(WrdDOC).Close False
    
42.                 WrdDOC.Quit
    
43.                 T = T + 1
    
44.             Next
    
45.             Set App = Nothing
    
46.             Application.StatusBar = "操作完成。打印了 " & T & " 个文件。"
    
47.         Else
    
48.             Application.StatusBar = "退出打印。"
    
49.         End If
    
50.     End If
    
51. endline:
    
52.     'MsgBox Err.Description
    
53. End Sub

复制代码

mythqiu

，无人关注打印？

ylf969

感谢大佬分享

blackttea1

好东西，感谢大佬分享