点击控件后打印复选框中的勾选的行，第一次可以，但是第二次点击的时候报错，“报告.doc已被锁定，无法编制”
Dim rs As List(of Row) = t.GetCheckedRows
If rs.Count > 0 Then '如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\报告.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\报告.doc"
Dim wrt As New WordReport(Tables("报告_Table1"),tm,fl) '定义一个WordReport
For Each r As Row In rs '逐行生成报表
wrt.BuildOne(r)
wrt.RecordsOnEachPage = 1
Next
'wrt.Show() '显示报表
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb= "Print"
Proc.Start()
Else
MessageBox.show("请先勾选要打印的报告！")
End If
加好友 
发短信
Post By：2018/6/4 17:54:00 [只看该作者]
