如何实现Excel批量打印文件夹文件为PDF时跳过保存路径弹窗？

你的代码每次弹出保存窗口，核心原因有两个：

• 调用了Application.GetSaveAsFilename，这个函数本身就是用于弹出保存对话框让用户选择路径的；
• 使用PrintOut配合Microsoft Print to PDF虚拟打印机，即使指定了PrToFileName，部分系统环境下仍会触发打印机自带的保存提示。

直接用Excel内置的ExportAsFixedFormat方法导出PDF，就能彻底跳过弹窗，实现自动批量处理。以下是修改后的完整代码：

Sub Print_forms_PDFs_folder()
    Dim strPath As String
    Dim strFile As String
    Dim wbk As Workbook
    Dim wsh As Worksheet
    Dim cwin1 As String ' 补充变量声明
    Dim fName As String

    cwin1 = ActiveWorkbook.Name
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1)
        Else
            MsgBox "No folder selected!", vbExclamation
            Exit Sub
        End If
    End With
    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\" 
    End If

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False ' 关闭可能的导出提示

    strFile = Dir(strPath & "*.xlsm") ' 去掉多余的*，避免匹配到类似.xlsm.bak的文件
    Do While strFile <> ""
        Set wbk = Workbooks.Open(Filename:=strPath & strFile, ReadOnly:=True, CorruptLoad:=xlmExtractData)
        Set wsh = wbk.Sheets("UCS-Chart")

        ' 直接构建PDF保存路径（和原Excel文件同目录）
        fName = Left(strPath & strFile, Len(strPath & strFile) - 5) & "interpreted.pdf" ' 去掉.xlsm后缀，替换为指定名称

        ' 使用ExportAsFixedFormat直接导出PDF，无弹窗
        wsh.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=fName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False

        wbk.Close SaveChanges:=False
        strFile = Dir()
    Loop

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

关键修改说明： #

• 移除GetSaveAsFilename：直接通过原文件路径拼接出PDF的保存路径，无需用户手动选择；
• 替换PrintOut为ExportAsFixedFormat：这是Excel原生的PDF导出接口，不需要依赖虚拟打印机，完全无弹窗；
• 添加Application.DisplayAlerts = False：关闭导出过程中可能出现的提示（比如文件覆盖确认）；
• 使用对象引用替代Select/Activate：避免因窗口切换导致的错误，代码更稳定；
• 修正文件匹配规则：Dir(strPath & "*.xlsm")避免匹配到非目标文件。

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