Word VBA打印代码仅调试模式生效 正常运行时跳过打印命令

问题核心原因 #

你遇到的是Word VBA打印的经典时序问题，调试模式正常、运行模式失效本质是执行速度差导致的任务丢失：
Word默认启用后台打印机制，非调试模式下代码执行速度极快，你发完打印指令后立刻切回原有默认打印机的操作，会跑在打印任务真正提交到打印机队列之前，相当于任务还没落到目标打印机上就被切换操作掐断了。
调试模式下单步执行的间隔足够长，打印任务有充足时间完成提交，所以运行完全正常。

修复方案 #

你不需要加硬延迟，按以下步骤修改代码即可：

• 给打印语句加Background:=False参数，强制代码等待打印任务完全提交到队列后再往下执行，从根源上解决时序问题
• 删掉所有Sleep语句，硬延迟对网络打印机不稳定，反而会拖慢执行效率
• 建议替换打印设置对话框的调用逻辑，直接修改ActivePrinter属性更稳定，避免对话框隐性行为导致的异常

修改后的完整代码如下：

'Print MS Word Form to one of three networked printers                
Sub MyPrint(oprinter, printcomplete)                                                  
Dim originalPrinter As String            
On Error GoTo myprinterr               

' 记录原有默认打印机
originalPrinter = Application.ActivePrinter
' 切换到目标打印机
Application.ActivePrinter = oprinter

' 前台打印，等待任务完全提交到队列再继续
Application.PrintOut FileName:="", Background:=False

' 切回原有默认打印机
Application.ActivePrinter = originalPrinter

MsgBox "Did it print? "
printcomplete = oprinter                                
Exit Sub

myprinterr:
   MsgBox "oops  printer error on: " & oprinter
End Sub

额外排查点 #

如果修改后仍有问题，确认传入的oprinter值和系统中安装的打印机名称完全一致，网络打印机通常会带端口后缀（比如XXX打印机 在 Ne04:），名称不完全匹配时非调试模式下会静默失败，不会触发错误捕获。

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