主题：word报表如何实现一次打印一份，自动打印？

 要用代码处理。

 http://www.foxtable.com/help/topics/2890.htm

 打印word的代码

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

 弹出什么提示，我测试没问题。

Dim app As New MSWord.Application
try
    Dim fileName = "d:\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

 生成报表的时候，不要执行 wrt.Show() '显示报表

 然后，直接打印报表即可。

 测试了一下，word报表可以直接print的，没那么麻烦

 如

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
'wrt.Preview()

wrt.Print()