呃,在你的代码那里控制。比如20个,打印4次
For i As Integer = 0 To 19 Step 5 Dim Doc As new PrintDoc For j As Integer = i To i+4 Dim pt As new prt.RenderText pt.Text = "(" & i & ", " & j & ")" Doc.Body.Children.Add(pt) Next Doc.Preview 'Doc.print()Next