主题：直接打印问题求助

此主题相关图片如下：打印错误.bmp

代码如下，请问老师是什么问题

        Dim Book As New XLS.Book(ProjectPath & "Attachments\打印单.xls")
        Dim fl As String = ProjectPath & "Reports\打印单.xls"
        Book.Build()
        Book.Save(fl)
       
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        ws.PrintOut
        wb.Close
        App.Quit

直接执行这段，看是否报错

        Dim Book As New XLS.Book(ProjectPath & "Attachments\打印单.xls")
        Dim fl As String = ProjectPath & "Reports\打印单.xls"
        Book.Build()
        Book.Save(fl)