主题：关于窗口中打印报表

求助：在当前窗口中，有一个“打印"按钮，我想把当前表中的一条记录（Excel模板已经设计好，按Excel模板形式输出）打印出来，代码怎样写？谢谢

举个例子：

 

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()

十分感谢！以后再请教

上诉代码执行后并没有打印啊，只是在Excel中显示出来结果，并没有实际打印，我想实际打印出来怎么办？

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()
 
 

这个代码不但可以直接打开报表,而且可以将报表保存到指定目录,只要将路径设置好.

在当前表中有一个“注销登记原因”字段，其列表项目有四个：报废、灭失、出境、退车。当字段内容为“报废”时，打印出1.jpg 的效果；当字段内容为“灭失”时，打印出2.jpg 的效果。 Excel模板应如何设计？谢谢

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

可以在上述代码前加上筛选代码，打印完成后取消筛选即可。

 能说的详细点吗？具体代码该怎么写？

这个你用不了Excel报表，只能用窗口打印。