Question

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

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

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

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

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

Answer 1

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

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

1 个答案: