以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 直接打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78254)
--  作者：zcgmxf
--  发布时间：2015/12/5 10:59:00
--  [求助] 直接打印

老师，下面代码可以生成报表，预览、打印。是否可以不预览直接打印？如何修改代码？谢谢！

Dim tm As String  = ProjectPath & "Attachments\\打印退回冲单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\打印退回冲单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库单"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
--  作者：Hyphen
--  发布时间：2015/12/5 11:14:00
--  
Dim tm As String  = ProjectPath & "Attachments\\打印退回冲单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\打印退回冲单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("出库单"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Print()
--  作者：zcgmxf
--  发布时间：2015/12/5 11:16:00
--  
谢谢！
--  作者：zcgmxf
--  发布时间：2015/12/5 11:19:00
--  

帮助里说：用WordReport生成报表之后，必须执行Quit方法退出，或者执行Show方法显示报表，否则内存将常驻一个Word进程，影响后续报表的生成和设计，直到你中断这个进程，切记切记。

该怎么办？
--  作者：zcgmxf
--  发布时间：2015/12/5 11:24:00
--  
是否需要加上：
wrt.quit()
--  作者：Hyphen
--  发布时间：2015/12/5 11:53:00
--  
加上