主题：表格与页眉页脚

设计的套打表格，表格格式是一致，内容不一致，比如按客户生成的对账单，每次选择按多个客户生成多张表格，我希望按每个客户编页眉和页脚，怎么写代码

专业报表

Dim dt1 As Table=Tables("客户明细_table1")

Dim dt2 As DataTable=DataTables("订单明细")

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

Dim rt As New prt.RenderTable() '定义一个表格对象

Dim rs As New prt.RenderText() '定义一个文本对象

For i As Integer = dt1.TopRow To dt1.BottomRow

中间是套打的代码，代码较多

一次选择多个客户，根据每个客户的订单生成明细表，现在设计的代码是按所有选择的生成页脚，我希望按不同客户生成各自的页脚

Next

doc.PageSetting.Landscape = True '横向打印

Doc.Preview() '预览报表

5楼的我看过，怎么能解决一次选择多个客户，根据每个客户的订单生成明细表，现在设计的代码是按所有选择的生成页脚，我希望按不同客户生成各自的页脚

5楼的列子是按打印的所有页编号的，我希望按不同客户分别编号，比如总数100页，客户分别是5、10、12等等，我希望的客户1是1、2、3、4、5，客户2是1、2、3、4、5、6、7、8、9、10依次类推