主题：[求助]打印行首复选框勾选的行

下面是预览选中行的代码，选中是通过鼠标拖放的方式进行的。

我想变为勾选复选框进行选择，怎样修改代码？

谢谢！

Dim Result As DialogResult
Result = MessageBox.Show("将按照模板生成预览文书,但不会保存,可供打印!"& vbcrlf &"你可以选中多行行头,批量预览文书!"& vbcrlf &"是---预览"& vbcrlf &"否---返回", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    '预览和生成分开处理,用下面代码预览
   
    Dim tm As String  = ProjectPath & "Attachments\二审行政案件诉讼要素表.doc" '指定模板文件
    With Tables("常用文书_table1")
        If .TopPosition > -1 Then '如果选定区域包括数据行
            Dim fileName As String = ProjectPath & "Reports\二审行政案件诉讼要素表\预览.doc" '指定目标文件
            Dim wrt As New WordReport(Tables("常用文书_table1"),tm,fileName) '定义一个WordReport
            For i As Integer = .TopPosition To .BottomPosition
                Dim r As Row = .Rows(i)
                wrt.BuildOne(r)
                wrt.RecordsOnEachPage  =1
            Next
            wrt.Show() '显示报表
        End If
    End With
   
Else
    Return
End If

            For i As Integer = .TopPosition To .BottomPosition
                Dim r As Row = .Rows(i)

改成

            For Each r As Row in .GetCheckedRows