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

11楼

gdtgl 发表于：2008/11/6 18:28:00

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

12楼

狐狸爸爸 发表于：2008/11/6 19:35:00

这个不用担心，计算的速度0.00001秒不到，没有任何影响

共12 条记录, 每页显示 10 条, 页签: [1] [2]