选择多行后打印窗口问题求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim i,j As Integer
Dim sd As WinForm.CheckBox = e.Form.Controls("CheckBox1") '是否打印双份
If sd.Checked = True Then
    i=2
Else
    i=1
End If
'打印已经选择的列
Dim jhr As new List(of Row)
jhr = Tables("表a").GetCheckedRows
If jhr.Count = "0" Then
    MessageBox.Show("请选择需要打印的行!")
Else
    For Each r As Row In Tables("表a").GetCheckedRows
        Tables("表A").Position = r.Index
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        For j=1 To i
            doc.Print()
        Next
    Next
End If

主题：选择多行后打印窗口问题求助