如何将报表页数和页码写入相应的记录？(附件已上传)

cyber-bobo

表中有一字段用来记录报表的页数的页码，请教如何才能在报表打印时将报表的页数和页码写入相应的记录？
例如：报表一共有3页，第一页有5条记录，第二页有3条记录，第三页有1条记录，那么头5条记录的页码字段就记录为3-1,如此类推！


[ 本帖最后由 cyber-bobo 于 2007-12-5 08:42 编辑 ]

macky591

学习中dddddddddddddddddddddddddddd

cyber-bobo

请教cuxun：
CurrentDb.Execute "UPDATE 订单 SET 订单.printID = '" & printID & "' WHERE 订单ID='" & 订单ID & "';"
如果订单ID是一个数字型字段，上面的语句应作如何修改？

cyber-bobo

老大，说了半天你还是不明白，就是因为控件为可以扩大且每页的记录数不确定才会这样的问题嘛！

cyber-bobo

或者换一个问法：如何才能使报表打开时显示所有的页？

liwen

原帖由 cyber-bobo 于 2007-12-5 15:17 发表
运行结果bug：如果打开报表只浏览第一页，那么第一页记录的printID 为2－1,而第二页记录的printID却变成了0－2,而不是2－2,
如果每一页都浏览过就会正常更新记录。
因为我想通过代码打开报表后马上又关闭报表，目的 ...

没注意，还真是这样的呢！原来Format时，[pages]开始值为0，只当初始Format会完毕后，[pages]才返回总页数的值，然后返回重新格式第一页，接着就停止了格式化。后面的页也是打开时主体才重新格式化。

liwen

原帖由 cuxun 于 2007-12-5 13:38 发表
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

  CurrentDb.Execute "UPDATE 订单 SET 订单.printID = '" & printID & "' WHERE 订单ID='" & 订单ID & "';"

End Sub

这个执行是正确的，不会出现你所说的情况，另按照你的示例，并不涉及可以扩大的备注字段。

cyber-bobo

问题就是有一控件类似备注字段，内容多少不能确定且控件大小一定要设为可以扩大，所以才会出现以上问题。敬请各位帮帮手！

andymark

为何一定要把页码写进表里呢，纸张、页边距不同结果也不同
如果非要往表里写入数据，首先要定出每页的行数。按楼上的思路更新即可

liwen

只为把页码写入记录中，根本可以不用打开报表，因为，一般来说，如果你的控件或主体不是设置为可以扩大或缩小时，每页会打印固定的行数，你可以直接通过代码更新即可，用不着真的使用报表。

cyber-bobo

运行结果bug：如果打开报表只浏览第一页，那么第一页记录的printID 为2－1,而第二页记录的printID却变成了0－2,而不是2－2,
如果每一页都浏览过就会正常更新记录。
因为我想通过代码打开报表后马上又关闭报表，目的只为了把页码写入记录中！如何解决呢？

[ 本帖最后由 cyber-bobo 于 2007-12-5 15:37 编辑 ]