- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于窗口中打印报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7273)
-- 发布时间：2010/6/2 12:41:00
-- 关于窗口中打印报表
求助：在当前窗口中，有一个“打印"按钮，我想把当前表中的一条记录（Excel模板已经设计好，按Excel模板形式输出）打印出来，代码怎样写？谢谢
-- 发布时间：2010/6/2 14:30:00
--
举个例子：
Dim Book As New
XLS.Book(ProjectPath
&
"Attachments\\出库单.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成细节区
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
-- 发布时间：2010/6/2 22:13:00
--
十分感谢！以后再请教
-- 发布时间：2010/6/3 8:41:00
--
上诉代码执行后并没有打印啊，只是在Excel中显示出来结果，并没有实际打印，我想实际打印出来怎么办？
-- 发布时间：2010/6/3 8:46:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成细节区
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Verb = "Print" \'指定动作
Proc.Start()
-- 发布时间：2010/6/3 9:44:00
--
这个代码不但可以直接打开报表,而且可以将报表保存到指定目录,只要将路径设置好.
-- 发布时间：2010/6/3 11:18:00
--
在当前表中有一个“注销登记原因”字段，其列表项目有四个：报废、灭失、出境、退车。当字段内容为“报废”时，打印出1.jpg 的效果；当字段内容为“灭失”时，打印出2.jpg 的效果。 Excel模板应如何设计？谢谢
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2010/6/3 11:27:00
--
可以在上述代码前加上筛选代码，打印完成后取消筛选即可。
-- 发布时间：2010/6/3 13:07:00
--
能说的详细点吗？具体代码该怎么写？
-- 发布时间：2010/6/3 14:35:00
--
这个你用不了Excel报表，只能用窗口打印。