主题：求打印word模板代码

参考

http://www.foxtable.com/webhelp/scr/2890.htm

直接打印，就这样写

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.print
wrt.quit