主题：[求助]批量打印选定的行的内容

With Tables("订单")

    Dim r1 As integer = .TopPosition
    Dim r2 AS integer = .BottomPosition
    For i as Integer = r1 To r2
        .position = r

        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Print()
    Next
End With