主题：[求助]这样的查询窗口，筛选后如何批量打印啊？

Dim doc As New PrintDoc '定义一个报表

for each dr as As Datarow in DataTables("xx").Select(Filter)    

     Dim rt As New prt.RenderText '定义一个文本对象   

     rt.Text = dr("第一列") '设置文本对象的内容   

    doc.Body.Children.Add(rt) '将文本对象加入到报表

next

doc.Preview() '预览

就这样而已啊