以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]异常来自 HRESULT:0x800A03EC  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58282)
--  作者：黄训良
--  发布时间：2014/10/14 21:20:00
--  [求助]异常来自 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
--  作者：有点甜
--  发布时间：2014/10/14 21:22:00
--  
 

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

\'App.Visible = True

Wb.PrintOut()
app.Quit
--  作者：有点甜
--  发布时间：2014/10/14 21:23:00
--  
 你是不是默认打印机没有设置好？
--  作者：黄训良
--  发布时间：2014/10/14 21:31:00
--  
选择打印正常，取消打印出错。
--  作者：有点甜
--  发布时间：2014/10/14 21:37:00
--  
Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\123.xls")
   
    \'App.Visible = True
   
    Wb.PrintOut()
    app.quit
catch ex As exception
   
End try
--  作者：黄训良
--  发布时间：2014/10/14 22:50:00
--  

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

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
--  作者：fpx406
--  发布时间：2014/10/15 8:32:00
--  
mark