高手请，如何在代码中为报表添加分页符（已有部分解决方案）？

chul72

我设计的报表需要在双面打印机上打印每一客户的明细清单，客户的明细清单记录数不确定，在打印时遇到的问题是不能正确的分页，要求是上一客户的明细打印完成后，如果总页数是偶数就接着打印，但如果是奇数就需要在报表打印结束前让打印机走一空白页，从新的一页开始打印。

我的想法是如果是奇数就在页面页脚后加一分页符，但不知道如何实现？

[此贴子已经被作者于2006-3-12 22:11:59编辑过]

chul72

没人知道吗？ [em11]

我的解决方法：
在报表页脚添加一分页符PageBreak5

在VBA中添加代码如下：

Private Sub 报表页脚_Format(Cancel As Integer, FormatCount As Integer)
    '设置分页符不可见
    Me![PageBreak5].Visible = False
    Select Case Me.page Mod 2
        Case Is = 0 'PAGES为偶数时
            Me![PageBreak5].Visible = False
        Case Is = 1 'PAGES为奇数时
            Me![PageBreak5].Visible = True
    End Select
End Sub

这样碰到报表为奇数时就在末尾添加一空白页，但我发现在页面页眉添加的[PAGE]和[PAGES]在报表为奇数时显示的是添加分页符之后的页数？