Ms access 仅打印时显示报告页

在MS Access报告中，可以使用包含以下内容的文本框显示页面计数：

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

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

理想情况下，在预览中，我只显示“第123页”，但当报告实际打印时，它将被“第123页，共456页”所取代

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

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

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

---

好建议。这些状态有命名常量，我倾向于使用它们而不是文字值，因为它们不需要添加注释来解释每个值所指的内容。谢谢Jeff。当我将其更改为以下格式时，这一点就起作用了：page_number.ControlSource=“=”page'&[page]”不幸的是，如果用户预览报告，然后选择打印，这一点就不起作用了，他们通常会这样做。你知道克服这一点的诀窍吗？你可能需要使用PageHeaderSection_格式。不理想，但打印时会触发。不好的是它会在每一页上运行。好的建议。这些状态有命名常量，我倾向于使用它们而不是文字值，因为它们不需要添加注释来解释每个值所指的内容。谢谢Jeff。当我将其更改为以下格式时，这一点就起作用了：page_number.ControlSource=“=”page'&[page]”不幸的是，如果用户预览报告，然后选择打印，这一点就不起作用了，他们通常会这样做。你知道克服这一点的诀窍吗？你可能需要使用PageHeaderSection_格式。不理想，但打印时会触发。糟糕的是，它会在每个页面上运行。