不好像不难吧!
假设你已设计好了报表模板rpt....,并指定了相应明细字段的DataField。
不知道你的MasterTable是绑定在什么网格上,反正能获取SelectedItems就好了。
dim i as int32
dim oda as New ...DataAdapter("",con)'假定已实例化连接对象con
Fro i=0 To ...SelectedItems.Count-1'假定为ListView,
'现在获取当前选定行的明细...一张一张的打印
oda.SelectCommand.CommandText="Select ID,Name,..... From [YourDetailTableName] Where ID='" & ...SelectedItems(i).Text & "'" ‘获取明细数据
dim dt as New DataTable'临时数据表
oda.Fill(dt)
'在这里实例化你的明细报表rpt....,并将rpt.DataSource=dt
rpt.Document.Print()'Send to printer