Показывать количество страниц отчета только при печати

Question

В отчетах MS Access количество страниц может отображаться в текстовом поле со следующим текстом:

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

Однако это проблематично для больших отчетов, так как Access не может открыть первую страницу отчета вПредварительный просмотр, пока ВСЕ страницы не будут отформатированы (таким образом, он знает общее количество страниц).

В идеале, в Предварительном просмотре я бы отображал только «Страница 123», но когда отчет фактически напечатан, он должен быть заменен.by «Страница 123 из 456 страниц».

Это, вероятно, желаемое за действительное, но кто-нибудь справился с чем-то подобным?

Answer 1

Access 2007 (вы не указали свою версию), имеет свойство CurrentView, доступное через vba, и вы можете изменить источник управления текстового поля страницы:

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