如何实现对Word文档的批量<em>打印</em>

EXCEL

Sub 批量打印()
Dim myFiles
Dim i As Long, j As Long
myFiles = Dir("C:\Users\Administrator\Desktop\1\*.xls") '路径自己改e799bee5baa6e78988e69d83331

On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False

Do While myFiles <> ""
i = i + 1
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\1\" & myFiles
'以下 可以在多个文件执行各种统一命令

'
For j = 1 To Sheets.Count

Sheets(j).Select
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next
'ActiveWorkbook.Save
ActiveWindow.Close
myFiles = Dir

Loop
End Sub

WORD

Sub 批量打印() '打印选项为默认
Dim spath, sfile
Application.ScreenUpdating = False
spath = "C:\Documents and Settings\Administrator\桌面\121\" '路径自己改
sfile = Dir(spath & "*.doc")
While sfile <> ""
With Documents.Open(spath & sfile)

Application.PrintOut fileName:="", Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentWithMarkup, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

.Close
End With
sfile = Dir
Wend
End Sub

使用 Office批量打印精灵实现，下载地址

1、百度“word批量打印助手知”，找到一个网站，下载这个文件，这个软件不要安装可以直接使用；

道查看大图" class="ikqb_img_alink">

2、打开“word批量打印助手”软件，点击“添加Word文件”；

3、在“添加Word文件”窗口中，可以通过SHIFT和CTRL,或者鼠标拖动进版行多文件选择；

4、注意选择打印机，最后点击批量打印按钮即可权。

没那么复杂吧，可以用office中的vba命令，就可以实现批量打印。如果仅仅是很多单独的文件，不用调整边距，页面设置啥的，可以全部选中，右击打印就可以了。希望可以帮到你。