专家坐堂-打印WORD报表代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印WORD报表代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67091)

--  作者：wusim
--  发布时间：2015/4/18 14:24:00
--  打印WORD报表代码

打印WORD报表，不显示，直接打印，怎样改？

Dim tm As String = ProjectPath & "Attachments\\A表.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\A表.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.Build() \'生成报表
Ws.PrintOut
wrt.quit

--  作者：Bin
--  发布时间：2015/4/18 14:30:00
--

Dim tm As String = ProjectPath & "Attachments\\A表.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\A表.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.Build() \'生成报表
wrt.quit
Dim app As New MSWord.Application
app.Documents.Open(fl)
app.PrintOut