excel宏代码执行时遇到错误，进行提示。

2024-12-29 20:23:19

推荐回答（1个）

回答1：

正常情况下，如果没有安装打印机，那打印预览会出错，即出现提示安装打印机。
那可否用变通一下的方法呢

Sub 测试()
On Error Resume Next
Application.ScreenUpdating = False
Application.SendKeys "{ESC}"
ActiveWindow.SelectedSheets.PrintPreview
If Err.Number <> 0 Then
MsgBox ""
MsgBox "您的计算机没有安装打印驱动程序！"
End If
End Sub

其实就是执行一下打印预览，如果出错，就提示未安装打印程序，直接判断是否安装，好像需要用api，不会，这个法子我觉得可行，你删除你计算机的打印机驱动，测试一下看看