Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
好像直接像你这样就可以了吧。
选定几行打印几行。
With Tables("表名")
Dim n As Integer = .BottomPosition - .TopPosition
For i As Integer = 0 To n
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview
.Position = .Position + 1
Next
End With