|
除非注明，文章均为 战战如疯 原创，转载请保留链接: http://www./cat4/238.html，VBA交流群273624828。
今天分享一个批量打印word的小程序。在Win7系统中右键批量打印一次只能选择15个，多了就不成了，像有些工作一次需要打印上百张的就比较麻烦了，这个小程序可以实现一键打印某个文件夹里的所有word文件。
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
首先利用FileDialog选择要打印的文件夹，然后对该文件夹下的word文件进行遍历，依次执行打印操作。这个程序很简单，但比较实用，感兴趣的可以下载下来用。
本节示例文件下载地址：http://pan.baidu.com/s/1c00AEQW。
|
