问题：excel打印输出执行后如果打印机故障或者要打印成XPS、PDF之类文件需要指定打印输出路径时候，弹出选择窗口选择确认打印完成后，但是打印输出之后的代码无法执行，变成EXCEL文件始终在后台打开无法退出和关闭。

’vbs代码

Dim objExcelApp
    Set objExcelApp = CreateObject("Excel.Application")  '调用excel
        objExcelApp.Visible = False                             'excel窗口不可见                 
        objExcelApp.Workbooks.Open "D:\test.xlsx"   ‘打开这个路径下的excel文件

         objExcelApp.ActiveSheet.printout = 1     '打印EXCEL表格
        '以下代码不能执行，如何加入判断执行

        objExcelApp.DisplayAlerts = False
        objExcelApp.Workbooks.Close           '关闭excel
        objExcelApp.Quit                                '退出excel
        Set objExcelApp= Nothing                  '释放excel应用的句柄