主题：[求助]异常来自 HRESULT:0x800A03EC

运行下面的代码，确定打印正常，取消打印出错：异常来自 HRESULT:0x800A03EC

查了N多资料，无果，请大师们指点：

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\report.xls")

Wb.PrintOut()
app.Quit

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\report.xls")

'App.Visible = True

Wb.PrintOut()
app.Quit

谢谢，已完全解决，代码如下：

try
    Dim App As New MSExcel.Application
    App.Visible = True
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\123.xls")
       Wb.PrintOut()
    app.quit
catch ex As exception
    Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("EXCEL")
    For Each p As System.Diagnostics.Process In ps
        p.kill
    Next
End try