主题：想实现WORD模板套打，然后后台打印此文档如何实现

Dim r As DataRow = Tables("ptsj1").Current.DataRow
Dim tm As String  = ProjectPath & "Attachments\交费收据新格式.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\交费收据新格式.doc" '指定目标文件
Dim wrt As New WordReport(Tables("数据主界面_普通收据_table1"),tm,fl) '定义一个WordReport

wrt.BuildOne(Tables("数据主界面_普通收据_table1").Current)
wrt.print
wrt.quit