以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问，报表如何保存为EXCEL表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85409)
--  作者：发哥
--  发布时间：2016/5/25 11:02:00
--  请问，报表如何保存为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()
[此贴子已经被作者于2016/5/25 11:02:36编辑过]
--  作者：大红袍
--  发布时间：2016/5/25 11:11:00
--  

呃，参考

 

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

 
--  作者：发哥
--  发布时间：2016/5/25 11:23:00
--  
谢谢，谢谢。
--  作者：发哥
--  发布时间：2016/5/25 13:22:00
--  
您好，《大红袍》老师，复制了代码，但打印『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() 不知错在哪儿了，请您帮我看看，万分感谢！！！
--  作者：大红袍
--  发布时间：2016/5/25 14:18:00
--  

 打印这样写

 

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

[此贴子已经被作者于2016/5/25 14:18:16编辑过]