ExcelVBA批量打印PDF文件
以下是VB的代码:
首先,你系统要安装PDFREADER一类的,
然后用SHELLEXECUTE可以用默认打开方式打印
类似于你对某个文档点击右键,选择打印
Private...ShellExecute Me.hwnd, "Print", PDFfilename, "", "", 1
我们可以修改一下就可以用啦,如:
ShellExecute Application.hwnd,..."Print", "D:\test.txt", vbNullString, vbNullString, 0
完整代码如下:
=============================
'批量打印PDF...PDF文件()
Dim mypath, s
Dim i&
Application.ScreenUpdating = False
With Application.FileDialog...(msoFileDialogFilePicker)
.Filters.Add "所有PDF文件", "*.pdf", 1 'PDF文件
.AllowMultiSelect