代码之家 › 专栏 › 技术社区 › maxhugen

仅打印时显示报表页

report ms-access

0

maxhugen · 技术社区 · 14 年前

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

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

理想情况下,在预览版中,我只会显示“第123页”,但当报表实际打印时,会被“第123页,共456页”所取代。

1 回复 | 直到 14 年前

1

3

JeffO 14 年前

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