主题：EXCEL打印错误

EXCEL打印错误!

Dim Book As New XLS.Book(ProjectPath & "Attachments\TAXI單.xls")

Dim fl As String = ProjectPath & "Reports\TAXI單.xls"

For n As Integer = 0 To Ls.Count-1 '向工作表的單元格中設置值

    Sheet(n, 0).Value = Ls(n) 

   Next 

Dim  Ls As New List(Of String )

For Each r As DataRow In DataTables("TAXI").Select("修理內容 Is Not Null")

    Ls.AddRange(r("修理內容").split(" "))

Next

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

App.Quit