主题：[求助]word报表打印问题?

代码改成这样，即可

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() '显示报表