主题：请问，报表如何保存为EXCEL表

以下代码是保存为：PDF(非常棒），请问保存为EXCEL，这个代码如何改下（我是菜鸟），谢谢指教。 Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") Dim fl As String = ProjectPath & "Reports\出库单.pdf" Book.Build() '生成细节区 Book.SaveToPDF(fl) '保存为PDF文件 Dim Proc As New Process '打开PDF文件 Proc.File = fl Proc.Start()

呃，参考

 

http://www.foxtable.com/help/topics/1145.htm

 

谢谢，谢谢。

您好，《大红袍》老师，复制了代码，但打印『excel』时，出现下面的问题了，
此主题相关图片如下：屏幕快照 2016-05-25 下午1.15.01.png

《打印PDF》没问题，很好呀， 《打印excel》代码如下： Dim Book As New XLS.Book(ProjectPath & "Attachments\LED天花灯表单.xls") Dim fl As String = ProjectPath & "Reports\LED天花灯表单.xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Start() 不知错在哪儿了，请您帮我看看，万分感谢！！！

 打印这样写

 

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) App.Visible = True Ws.PrintPreview 'ws.Print App.Quit