除非注明,文章均为 战战如疯 原创,转载请保留链接: http://www.zhanzhanrufeng.com/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。
联系客服