主题：专业报表如何打印多页?

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

Doc.PrinterName = Printer

...设置各种打印参数

    '---定义主表及明细表

    MtbName = Tables("生产领料单_主表")

    CurRow = Tables("生产领料单_主表").Current

    tb = Tables("生产领料单_明细")

   

    '1----------------------------------------------------定义页眉---------------------------------------------------1

    Dim ra As New prt.RenderArea '定义一个容器

    '---定义主标题

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

 .....根据主表当前行及其子表行数计算需要打印几页及各种格式

    '---设置以上部份作为页脚

    doc.PageFooter = ra

   

    Doc.Preview() '预览报表

上面是打印单张表时没有问题的结构,如果想一次性预览打印多张表(通过勾选左侧复选框选中的多个主表行)

这样要加什么代码才能实现打印多张表?

谢谢!

 

不可以写成循环？一个循环打印一张表？