- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]报表打印代码（不是数据表） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1107)
-- 发布时间：2008/11/12 11:20:00
-- [求助]报表打印代码（不是数据表）
记得出前有人问过当时没有这种功能，现在有了吗？
[此贴子已经被作者于2008-11-12 11:22:16编辑过]
-- 发布时间：2008/11/12 11:36:00
-- 看不到菜单栏用什么方法啊
帮助上有，看专业报表
[此贴子已经被作者于2008-11-12 11:36:10编辑过]
-- 发布时间：2008/11/12 11:52:00
--
Excel模板报表参考这个
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()
-- 发布时间：2008/11/12 12:13:00
--
不是用代码生成专业报表，而是已经有了用EXCEL模板做成的报表，想增加一个表专门用于打印在主窗口上钩选哪个报表就打印哪个报表，可实现多选。打印报表的功能原来没有老六说以后加上
此主题相关图片如下：img0015a.jpg
此主题相关图片如下：img0016a.jpg
[此贴子已经被作者于2008-11-12 12:56:17编辑过]
-- 发布时间：2008/11/12 13:43:00
--
以下是引用易服在2008-11-12 12:13:00的发言：
不是用代码生成专业报表，而是已经有了用EXCEL模板做成的报表，想增加一个表专门用于打印在主窗口上钩选哪个报表就打印哪个报表，可实现多选。打印报表的功能原来没有老六说以后加上
[此贴子已经被作者于2008-11-12 12:56:17编辑过]
老六是说过要添加直接打印报表的功能
但在添加之前，参考2楼的代码并加以改造，是可以实现多选打印的，
供你参考，呵呵
-- 发布时间：2008/11/12 13:52:00
--
好的，自己先慢慢做，做不下去再求助
-- 发布时间：2008/11/13 16:00:00
--
Proc.Verb = "Print" \'指定动作
指定动作能否直接是打印预览?
-- 发布时间：2008/11/13 16:08:00
--
Proc.Verb = "Print" 直接打印,
不支持预览