批量打印文件夹下的PDF文件

YoungMoney0205

各位大佬，求助，工作中，频繁需要打印文件夹下的所有PDF文件，文件全部打印，不需要指定页，并且文件数量众多，请问各位大佬能否使用VBA解决。需要打印的PDF文件在桌面文件夹中，麻烦大家了，谢谢

约定的童话

全部打印还是打印指定页码啊？

YoungMoney0205

约定的童话 发表于 2019-6-27 11:31
全部打印还是打印指定页码啊？

老哥，是全部打印

YoungMoney0205

各位老哥，帮帮忙，小白还在初学VBA很多地方搞不懂，谢谢大佬们了

约定的童话

YoungMoney0205 发表于 2019-6-27 12:17
各位老哥，帮帮忙，小白还在初学VBA很多地方搞不懂，谢谢大佬们了

目测VBA不好处理啊，不过有其他方法协助你

YoungMoney0205

约定的童话 发表于 2019-6-27 12:38
目测VBA不好处理啊，不过有其他方法协助你

请问是什么方法呀，大佬

约定的童话

YoungMoney0205 发表于 2019-6-27 12:39
请问是什么方法呀，大佬

PDF批量打印神器

jorro007

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
Sub 批量打印PDF文件()
Application.ScreenUpdating = False
Dim i As Integer, sFile As String
Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
    With mydialog
        .Filters.Clear '清除所有文件筛选器中的项目
        .Filters.Add "所有PDF文件", "*.pdf", 1 '增加筛选器的项目为所有pdf文件
        .AllowMultiSelect = True '允许多项选择
        .Show
        If .SelectedItems.Count = 0 Then
            Exit Sub
        End If
    For i = 1 To .SelectedItems.Count
        sFile = .SelectedItems(i)
        ShellExecute Application.hwnd, "print", sFile, "", "", SW_HIDE
    Next
    End With
Application.ScreenUpdating = True
End Sub

jorro007

win10，64位，office2016，测试可用，正常

YoungMoney0205

jorro007 发表于 2019-7-1 13:08
win10，64位，office2016，测试可用，正常

谢谢大佬，有空我去测试测试，谢谢啦