远程办公时VBA批量打印PDF代码报Run-time 53错误求助

Run-time 53错误本质是指定的文件或程序未找到，结合你居家办公的场景，从以下核心方向排查修复：

一、排查目标PDF文件夹路径 #

• 确认代码中folder变量的路径完全正确：
  1. 手动打开该路径，验证是否存在且包含PDF文件
  2. 路径中若有空格、特殊字符，需确保代码拼接后不会出现解析错误（原代码已用Chr(34)包裹文件路径，这部分没问题，但路径本身要真实存在）
  3. 可临时添加MsgBox Dir(folder & "*.pdf")验证，如果弹出空内容，说明路径匹配不到任何PDF文件

二、排查Acrobat Reader的执行路径 #

原代码中固定的Acrobat路径C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe是32位版本默认路径，居家电脑可能存在差异：

• 若安装了64位Acrobat，路径应为C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe
• 若Acrobat未安装在默认路径，需手动找到AcroRd32.exe的实际位置替换代码中的路径
• 若未安装Acrobat Reader，需先安装后再执行代码

三、优化代码增强容错性 #

修改代码自动适配Acrobat路径，并增加错误捕获，避免单个文件失败导致整个程序中断：

Public Sub Print_All_PDF_Files_in_Folder()
    Dim folder As String
    Dim PDFfilename As String
    
    folder = "C:\Users\16468\Desktop\CONF\TAXES"    'CHANGE AS REQUIRED
    If Right(folder, 1) <> "\" Then folder = folder & "\"
       
    ' 验证目标文件夹是否存在
    If Dir(folder, vbDirectory) = "" Then
        MsgBox "目标文件夹不存在，请检查路径！", vbCritical
        Exit Sub
    End If
    
    PDFfilename = Dir(folder & "*.pdf", vbNormal)
    If Len(PDFfilename) = 0 Then
        MsgBox "文件夹内未找到PDF文件！", vbExclamation
        Exit Sub
    End If
    
    While Len(PDFfilename) <> 0
        ' 捕获单文件打印错误
        On Error Resume Next
        Print_PDF folder & PDFfilename
        If Err.Number <> 0 Then
            MsgBox "打印失败：" & folder & PDFfilename & vbCrLf & "错误信息：" & Err.Description, vbExclamation
        End If
        On Error GoTo 0
        PDFfilename = Dir()  ' 获取下一个文件
    Wend
End Sub

Private Sub Print_PDF(sPDFfile As String)
    Dim acroPath As String
    ' 优先尝试64位路径，再尝试32位路径
    acroPath = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    If Dir(acroPath) = "" Then
        acroPath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    End If
    
    ' 检查Acrobat是否存在
    If Dir(acroPath) = "" Then
        MsgBox "未找到Adobe Acrobat Reader，请先安装或确认路径！", vbCritical
        Exit Sub
    End If
    
    ' 执行打印命令
    Shell acroPath & " /p /h " & Chr(34) & sPDFfile & Chr(34), vbNormalFocus
End Sub

四、其他可能的排查点 #

• 目标PDF文件是否被其他程序锁定（比如正在打开），导致无法访问
• 当前用户对目标文件夹是否有读取权限
• 系统默认PDF阅读器是否为Acrobat，若不是，右键PDF文件设置Acrobat为默认打开方式

内容的提问来源于stack exchange，提问作者A Wells