以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求个按键打印报表的代码。急  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10292)

--  作者:441337802
--  发布时间:2011/5/28 15:11:00
--  求个按键打印报表的代码。急
求个按键打印报表的代码。求个按键打印报表的代码。
--  作者:hhbb
--  发布时间:2011/5/28 15:51:00
--  
看你急的,帮你顶.
--  作者:狐狸爸爸
--  发布时间:2011/5/28 15:54:00
--  

打印Exel报表:

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
\'生成细节区
Book.Save(fl)
\'保存工作簿
Dim
Proc As New Process \'打开工作簿
Proc.File = fl

Proc.Verb = "Print" \'指定动作
Proc.Start()


--  作者:441337802
--  发布时间:2011/5/28 16:15:00
--  
提示未定义类型Mseexcel Application
--  作者:狐狸爸爸
--  发布时间:2011/5/28 16:16:00
--  
你要用excel报表,就必须安装有excel