以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Word报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90488)
--  作者：良才
--  发布时间：2016/9/14 10:20:00
--  Word报表

打印代码：

Dim tm As String  = ProjectPath & "报表模板\\证件接收凭证.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\证件接收凭证.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("缴证信息"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表

 点击打印代码能直接打印吗？代码怎样改，请指点，谢谢！
--  作者：有点蓝
--  发布时间：2016/9/14 10:26:00
--  
Dim tm As String  = ProjectPath & "报表模板\\证件接收凭证.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\证件接收凭证.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("缴证信息"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Print
wrt.quit
--  作者：良才
--  发布时间：2016/9/14 13:39:00
--  
谢谢