如果用的是窗口打印,可以:
for i as integer = 0 to tables("xxx").Rows.Count - 1
tables("xxx").Position = i
'打印
Next