如何批量打印文件夹内的所有word文档？

zzpsx

问题1：如何批量打印文件夹内的所有word文档？
问题2：有些电脑能右键多选文档后，右键中有打印菜单，有些没有？跟什么有关？打印机驱动程序？ 操作系统？

zzpsx

请高手相助。

413191246se

楼主，批量打印并不难（因为无论是包含不包含多个子文件夹，4 位老师都写了循环遍历文件夹及子文件夹的程序，都是现成的）；难的是，你现在连选择文件夹的兴趣都没有。——但是，批量打印也分多种条件的，如：打印几页到几页，打印每个文档多少份，整套文档打印几份。

zzpsx

413191246se 发表于 2021-12-16 09:04
楼主，批量打印并不难（因为无论是包含不包含多个子文件夹，4 位老师都写了循环遍历文件夹及子文件夹的程序 ...

谢谢高手，我想使用代码的目的，是希望能比word 自带的插入对象来合并word文档更简单。

413191246se

请 楼主 详细说说要如何批量打印文件？

zzpsx

Sub Print1()
Dim mypath, myfile, wApp
With Application.FileDialog(msoFileDialogFolderPicker)  '选择相应的文件夹
If .Show = False Then Exit Sub
mypath = .SelectedItems(1) & "\"
End With
myfile = Dir(mypath & "*.doc*")             '遍历该文件夹下的所有word文件
Do While myfile <> ""
Set wApp = CreateObject("word.application")
With wApp
.documents.Open mypath & myfile         '打印
.activedocument.PrintOut
.Quit
End With
Set wApp = Nothing
myfile = Dir
Loop
End Sub
以上代码似乎也没用

413191246se

楼主 是否想要打印某个文件夹内的所有文件？请把要打印的所有文件放到一个新建文件夹内。楼主，请把你的代码赶快扔到 垃圾箱里！用我的。
下面是 杜老师 的代码，很高级的！你只需将单个文档处理的语句替换为打印即可。
即：将 .color=wdcolorRed 这句替换为 doc.printout 即可（但打印后，想关闭文档，会有提示，只须不保存即可），这是打印一份；如果想每个文档打印多份，可改为：
With doc
        .PrintOut Copies:=3'打印 3 份
        .Close SaveChanges:=wdDoNotSaveChanges
    End With

***选择文件夹后，会自动把所有该文件夹及子文件夹下面的 Word 文档打印出来（无需选择文件）：

1. Sub LoopFolder_xiaohualu()
   
2. '循环遍历文件夹及子文件夹
   
3.     Dim d, n&, m&, x&, mydir, dk, doc As Document, i&
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     d(SelectFolder) = ""
   
6.     Do While n < d.Count
   
7.         dk = d.keys
   
8.         mydir = Dir(dk(n), vbDirectory)
   
9.         Do While mydir <> ""
   
10.             If mydir <> "." And mydir <> ".." Then
    
11.                 If GetAttr(dk(n) & mydir) = vbDirectory Then
    
12.                     d(dk(n) & mydir & "") = ""
    
13.                     m = m + 1
    
14.                 Else
    
15.                     x = x + 1
    
16.                     If dk(n) & mydir Like "*.doc*" Then
    
17.                         Set doc = Documents.Open(FileName:=dk(n) & mydir)
    
18.                         doc.Content.Font.Color = wdColorRed
    
19.                         doc.Close SaveChanges:=wdSaveChanges
    
20.                         i = i + 1
    
21.                     End If
    
22.                 End If
    
23.             End If
    
24.             mydir = Dir
    
25.         Loop
    
26.         n = n + 1
    
27.     Loop
    
28.     Set d = Nothing
    
29.     Set dk = Nothing
    
30.     MsgBox "Done! Total " & x & " files! Word(*.doc*) " & i & " files!", 0 + 48
    
31. End Sub
    
32. Function SelectFolder() As String
    
33.     With Application.FileDialog(msoFileDialogFolderPicker)
    
34.         If .Show Then SelectFolder = .SelectedItems(1) & "" Else End
    
35.     End With
    
36.     If MsgBox("Are you sure you want to select the folder " & vbCr & SelectFolder & " ?", 4 + 16) = vbNo Then End
    
37. End Function

复制代码

zzpsx

413191246se 发表于 2021-12-20 16:57
楼主 是否想要打印某个文件夹内的所有文件？请把要打印的所有文件放到一个新建文件夹内。楼主，请把你的代 ...

多个各位大神不厌其烦的教导，谢谢。

兰姆酒

太厉害了，word也能编写vba