excel printout错误 崩溃

lwz642246

自己需要设定自动打印excel文件，下面代码，在设置好默认打印机时能正常执行，但无打印机时直接崩溃退出，不能执行MsgBox(4096, "提示！！", "测试一下", 8)这句，请问怎么容错处理。

#include <Excel.au3>
Local $oExcel = _ExcelBookNew()
With $oExcel.worksheets(1)
        .cells(1, 1) = "测试"
        .printout
EndWith
Sleep(500)
_ExcelBookClose($oExcel, 0)
MsgBox(4096, "提示！！", "已打印", 8)

谢谢kevinceh，已解决

#include <Excel.au3>
Local $oExcel = _ExcelBookNew()
If $oExcel.ActivePrinter = "" Or StringInStr($oExcel.ActivePrinter, "Microsoft") > 0 Then
MsgBox(4096+262144+64, "打印失败！！   找不到打印机", "没有找到默认打印机，无法打印，请选择设置可用的默认打印机", 5)
Else
With $oExcel.worksheets(1)
        .cells(1, 1) = "测试"
        .printout
EndWith
endif
Sleep(500)
_ExcelBookClose($oExcel, 0)

kevinch

没试过，试下

if .parent.parent.application.PrintCommunication=true then .printout

还可以提取打印机名试下：
.parent.parent.application.ActivePrinter

lwz642246

没试过，试下还可以提取打印机名试下：
.parent.parent.application.ActivePrinter
kevinch 发表于 2012-5-13 16:53

谢谢，试了一下，直接退出，能不能注释一下。

kevinch

PrintCommunication
字面意思应该很清楚吧，打印机是否已连接

lwz642246

回复 4# kevinch 谢谢帮助，已解决。答案见一楼