比如
Dim tm As String = ProjectPath & "Attachments\出库单.doc" '指定模板文件Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReportwrt.Build() '逐行生成报表wrt.print
http://www.foxtable.com/webhelp/scr/2890.htm