谢谢大佬指点。我看了您的回复后学习了不少,有点不同的是我想的是在一行列表里设置个复选框,通过复选人名设定该行信息打印总份数和设置每份文件打印送给的对象,我看了您的回复后,自己试着写了下:
Dim nms As String = Tables("总表").Rows(2)("抄送人")
Output.Show(nms)
Dim nm() As String = nms.Split(",")
Output.Show (nm(0))
Dim tm As String = ProjectPath & "Attachments\批抄打印.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\批抄打印.doc" '指定目标文件
Dim wrt As New WordReport(Tables("总表"),tm,fl)
For i As Integer = 0 To nm.Length - 1
Output.Show (i)
wrt.Replace("[抄送人]",nm(i) ) '替换模板中的抄送标记
Next
wrt.Show() '显示报表
这代码有几个问题想请教下,一是我想打印选定行,该怎么写?二是我在命令窗口下方的显示栏中看到"i"循环了0,1,2三次,但生成的显示报表只有nm(0)的这个抄送人的word,没有将抄送其它人的word生成出来是为什么?