主题：专业报表

打印之前，筛选一下就行。如

Tables("表A").Filter = "第一列 = '3'"

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.DataBinding.DataSource = BindTables("表A") '将rt绑定到订单表
rt.Text= "[Fields!第一列.Value]" '设置打印字段
doc.body.Children.Add(rt)
doc.Preview()