显示报告页面仅在打印时计数

时间:2010-09-27 04:59:06

标签: ms-access report

在MS Access报告中,可以使用带有以下内容的文本框显示页数:

= "Page " & Page & " of " & Pages & " Pages"

但是,对于大型报表来说这是有问题的,因为Access无法在预览中打开报表的第一页,直到所有页面都已格式化(因此它知道总页数)。

理想情况下,在预览中我只显示“页面123”,但当报表实际打印时,将被“页面123页”替换。

这可能是一厢情愿的想法,但有人管理过这样的事情吗?

1 个答案:

答案 0 :(得分:3)

Access 2007(您没有指明您的版本),通过vba提供CurrentView属性,您可以更改页面文本框的控件来源:

Private Sub Report_Open(Cancel As Integer)

 Select Case Me.CurrentView
      Case acCurViewDesign

      Case acCurViewPreview
          ' Page # Only
          Pages_TextBox.ControlSource = "Page" & Me.Page

      Case acCurViewReportBrowse

          ' Page # of #
          Pages_TextBox.ControlSource = "Page" & Me.Page & " of " & Me.Pages
      Case acCurViewLayout
               End Select
End Sub