主题：EXCEL报表打印问题

如果要打印预览，不能保存成pdf，直接用vba打开xls文件预览。如

Dim Book As New XLS.Book(ProjectPath & "Attachments\表A.xlsx")
Dim fl As String = ProjectPath & "Reports\表A.xlsx"
Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath &"Reports\表A.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit