你的问题核心在于使用Adobe PDF这类虚拟打印机时，默认会触发保存对话框来让用户指定输出文件。要实现静默打印到预定义路径和文件名，我们需要调整PrintOut方法的参数，同时优化Word对象的获取逻辑来避免潜在问题。

修改后的完整代码 #

Sub PrintIt()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim outputPath As String
    
    ' 预定义输出路径和文件名，可根据需求自行修改
    ' 示例：保存到当前Excel工作簿所在文件夹，文件名为"SalaryPaycheck.pdf"
    outputPath = ThisWorkbook.Path & "\SalaryPaycheck.pdf"
    
    ' 直接从嵌入的OLE对象获取Word应用，比GetObject更精准，避免误取其他Word实例
    Set objWord = ActiveSheet.OLEObjects("SalaryPaycheck").Object.Application
    objWord.Visible = False
    Set objDoc = objWord.ActiveDocument
    
    ' 关闭Word的所有提示弹窗
    objWord.DisplayAlerts = wdAlertsNone
    
    ' 关键修改：通过PrintToFile参数指定输出文件，实现静默打印
    objDoc.PrintOut _
        Background:=False, _
        PrintToFile:=True, _
        OutputFileName:=outputPath
    
    ' 清理资源，避免内存泄漏
    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 优化Word对象获取：直接从嵌入的SalaryPaycheck OLE对象中提取Word应用，相比GetObject方法，能避免误获取其他正在运行的Word实例，逻辑更可靠。
• 预定义输出路径：用ThisWorkbook.Path自动获取当前Excel文件所在文件夹，你也可以替换为固定路径（比如"C:\HR_Documents\SalaryPaycheck.pdf"），注意Windows路径使用反斜杠\，如果直接写字符串要保证格式正确。
• PrintOut参数调整：
  • PrintToFile:=True：告知Word我们要输出到文件而非物理打印机。
  • OutputFileName:=outputPath：直接指定PDF的保存路径和文件名，彻底跳过手动弹窗环节。

额外注意事项 #

• 如果需要自动创建目标文件夹（避免路径不存在报错），可以在定义outputPath后添加这段代码：

  Dim folderPath As String
  folderPath = Left(outputPath, InStrRev(outputPath, "\"))
  If Dir(folderPath, vbDirectory) = "" Then
      MkDir folderPath
  End If
  

• 确保你的VBA项目已引用Microsoft Word对象库：打开VBA编辑器 → 点击「工具」→「引用」→ 勾选"Microsoft Word xx.x Object Library"（xx.x对应你安装的Word版本号）。

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