共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]报表打印代码（不是数据表）
1楼
易服 发表于：2008/11/12 11:20:00记得出前有人问过当时没有这种功能，现在有了吗？
[此贴子已经被作者于2008-11-12 11:22:16编辑过]
2楼
smileboy 发表于：2008/11/12 11:36:00帮助上有，看专业报表
[此贴子已经被作者于2008-11-12 11:36:10编辑过]
3楼
kylin 发表于：2008/11/12 11:52:00Excel模板报表参考这个
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()
4楼
易服 发表于：2008/11/12 12:13:00不是用代码生成专业报表，而是已经有了用EXCEL模板做成的报表，想增加一个表专门用于打印在主窗口上钩选哪个报表就打印哪个报表，可实现多选。打印报表的功能原来没有老六说以后加上
此主题相关图片如下：img0015a.jpg
此主题相关图片如下：img0016a.jpg
[此贴子已经被作者于2008-11-12 12:56:17编辑过]
5楼
kylin 发表于：2008/11/12 13:43:00以下是引用易服在2008-11-12 12:13:00的发言：
不是用代码生成专业报表，而是已经有了用EXCEL模板做成的报表，想增加一个表专门用于打印在主窗口上钩选哪个报表就打印哪个报表，可实现多选。打印报表的功能原来没有老六说以后加上
[此贴子已经被作者于2008-11-12 12:56:17编辑过]
老六是说过要添加直接打印报表的功能
但在添加之前，参考2楼的代码并加以改造，是可以实现多选打印的，
供你参考，呵呵
6楼
易服 发表于：2008/11/12 13:52:00好的，自己先慢慢做，做不下去再求助
7楼
ahljy351 发表于：2008/11/13 16:00:00Proc.Verb = "Print" '指定动作
指定动作能否直接是打印预览?
指定动作能否直接是打印预览?
8楼
kylin 发表于：2008/11/13 16:08:00Proc.Verb = "Print" 直接打印,
不支持预览
不支持预览
共8 条记录, 每页显示 10 条, 页签:
[1]