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() \'预览报表

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

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

谢谢!

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