如何设置Microsoft Print to PDF默认保存路径为Excel工作簿所在位置

要让PDF保存对话框默认指向当前Excel工作簿所在路径，推荐直接使用Excel内置的ExportAsFixedFormat方法（比打印到PDF的方式更可控），以下是完整的VBA宏代码：

Sub SaveWorkbookAsPDF()
    Dim savePath As Variant
    Dim defaultFileName As String
    Dim currentPath As String
    
    ' 获取当前工作簿的所在路径
    currentPath = ThisWorkbook.Path
    
    ' 处理工作簿未保存的情况
    If currentPath = "" Then
        MsgBox "请先保存当前工作簿，才能确定默认保存路径。", vbExclamation
        Exit Sub
    End If
    
    ' 拼接默认保存路径和文件名（工作簿名+PDF后缀）
    defaultFileName = currentPath & "\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".pdf"
    
    ' 弹出PDF保存对话框，默认路径为当前工作簿所在目录
    savePath = Application.GetSaveAsFilename( _
        InitialFileName:=defaultFileName, _
        FileFilter:="PDF 文件 (*.pdf), *.pdf", _
        Title:="保存PDF文件")
    
    ' 用户未取消对话框时执行保存
    If savePath <> False Then
        ThisWorkbook.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False ' 若需要保存后自动打开PDF，改为True
    End If
End Sub

代码说明 #

• ThisWorkbook.Path直接获取当前工作簿的存储路径，自动匹配你提到的\fileserver\drafting\MBS_JOBS\JobNumber格式
• GetSaveAsFilename弹出的对话框会默认定位到该路径，同时预设好与工作簿同名的PDF文件名
• ExportAsFixedFormat是Excel原生的PDF导出功能，比打印到PDF更稳定，还能控制导出质量、是否包含文档属性等参数

如果你坚持要使用原有的打印方式（依赖Microsoft Print to PDF打印机），需要通过修改注册表临时设置默认保存路径，但该方法涉及API调用且存在权限限制，不推荐使用。

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