以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用EXCEL打印提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100153)
--  作者：有点色
--  发布时间：2017/5/5 16:28:00
--  

单独执行，看是否报错

 

    Dim fl As String = ProjectPath & "Reports\\门诊收入日报表.xls"

    Dim App As New MSExcel.Application

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
--  作者：有点色
--  发布时间：2017/5/8 9:23:00
--  

单独执行2楼代码，看是否报错。

 

做一个可以测试的例子发上来看看。