专家坐堂-请教：如何用代码直接打印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=57105)

--  作者：jerzhh
--  发布时间：2014/9/18 11:10:00
--  请教：如何用代码直接打印Word报表？

例如我有如下代码可以显示Word报表"合同文本.doc"

Dim TemplateName As String = ProjectPath & "报表模板\\合同文本L_模板.doc"
Dim ReportName As String = ProjectPath & "报表\\合同文本.doc"
Dim wrt As New WordReport(Tables("合同概况"), TemplateName, ReportName)
wrt.BuildOne(Tables("合同概况").Current)
wrt.Show()

但是我现在不想在屏幕上显示这个报表，而是直接打印出来，该如何写代码？

--  作者：有点甜
--  发布时间：2014/9/18 11:12:00
--
Dim app As New MSWord.Application
try
    Dim fileName = "e:\\test.doc"
    app.Documents.Open(fileName)
    \'app.Documents(fileName).PrintPreview
    \'app.Visible = True
    app.Documents(fileName).PrintOut \'打印
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try