循环每一行,然后打印,如代码
For Each r As Row In Tables("表A").rows r.Table.Position = r.Index Dim doc As PrintDoc = e.Form.GernatePrintDoc() doc.Preview()Next