主题：请问页眉中的[PageNo]和[Pagecount]的问题

10楼主方法应是指一个报表（换页符？），这样行不通啊。
只能按3楼的办法定义多个报表:

试了下，都算达到了想要的效果。

(但存在1个问题 ：连续打印时，子表数据量1大，因为有计算关联子表的行数代码，猜想着效率应会极低。现在正用着的系统的速度真叫人哭不出来（引进的），我对于速度这方面，都会极度担心，真的烦够了。）

dim count1 as integer = Tables("...表").Rows.Count  
if count1 > n then

    Dim doc As New Printdoc
    .........
    doc.Preview

    Dim doc1 As New Printdoc
    .........
    doc1.Preview

else
    Dim doc3 As New Printdoc
    .........
    doc3.Preview

end if