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

 测试了一下，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()