以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求个按键打印报表的代码。急  (http://foxtable.com/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