换一种方式打印。
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.print
wrt.quit