主题：[求助]窗口打印

是说，选中几行，然后分别打印？

If forms("窗口名").Opened = False Then
    forms("窗口名").Open()
End If
For Each r As Row In Tables("xxx").Rows
    If r("打印") = True Then
        Tables("xxx").Position = r.Index
        Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
        doc.Print()
    End If
Next