请教老师：为什么不能打印PDF文件？打印机没反应，也没错误提示。

qdzbk

Sub BatchPrintPDF()
    '批量打印PDF文件

    Const Path_Pdf As String = "C:\1"
    Const Adobe_exe As String = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\AcroRd32.exe"
    Dim shellCommand As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Folder = fso.GetFolder(Path_Pdf)

    For Each File In Folder.Files
       shellCommand = Adobe_exe & " /p /h " & File
       Shell shellCommand, vbHide
    Next File

End Sub

红军2023

Sub BatchPrintPDF()
    Const Path_Pdf As String = "C:\1"
    Const Adobe_exe As String = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\AcroRd32.exe"
    Dim shellCommand As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(Path_Pdf) Then
        MsgBox "文件夹不存在: " & Path_Pdf, vbCritical
        Exit Sub
    End If

    Set Folder = fso.GetFolder(Path_Pdf)
    For Each File In Folder.Files
        If LCase(fso.GetExtensionName(File.Name)) = "pdf" Then
            ' 带引号处理空格，显示窗口以便调试
            shellCommand = Adobe_exe & " /p """ & File.Path & """"
            Shell shellCommand, vbNormalFocus
            Application.Wait Now + TimeValue("00:00:03")
        End If
    Next File
End Sub

qdzbk

红军2023 发表于 2025-3-20 14:33
Sub BatchPrintPDF()
    Const Path_Pdf As String = "C:\1"
    Const Adobe_exe As String = "C:\Prog ...

谢谢你的回复，我测试了一下，还是没反应

MOY838840554

确定安装Acrobat DC了吗，确定安装的是32位在Program Files (x86)里不是在Program Files里吗？还有excel转为pdf直接另存就行了

qdzbk

MOY838840554 发表于 2025-4-2 10:13
确定安装Acrobat DC了吗，确定安装的是32位在Program Files (x86)里不是在Program Files里吗？还有excel转 ...

首先谢谢你的回复！这是我安装的Acrobat DC，并确定在Program Files (x86)目录内