Excel VBA调用xlDialogPrint显示打印对话框出现编译错误如何解决

该编译错误的核心是VBA无法正确识别Application.Dialogs(xlDialogPrint)调用逻辑，常见原因和解决方案如下：

• 方案1：替换内置常量为数值枚举值
  xlDialogPrint为Excel VBA内置常量，对应数值为8，部分场景（库引用丢失、版本兼容）下常量识别会失败，直接替换为数值即可解决，将报错行修改为：

  Application.Dialogs(8).Show
  

• 方案2：排查命名冲突
  若当前VBA工程内存在自定义命名为Dialogs的变量、函数或过程，会覆盖Excel自带的Application.Dialogs属性导致调用失败，找到对应自定义项修改为其他名称即可。
• 优化后完整代码参考
  原代码中大量Select操作属于冗余逻辑，可简化为以下写法提升运行效率：

  Private Sub PrintButton_Click()
      With Feuil2
          .Activate
          .Columns("A:A").ColumnWidth = 0.5
          .Columns("B:XFD").EntireColumn.AutoFit
      End With
      Application.Dialogs(8).Show
      ThisWorkbook.Save
  End Sub
  

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