在访问报告中跳过封面页码，并按组从第 2 页开始新的页码

Posted 2023-05-06

【中文标题】在访问报告中跳过封面页码，并按组从第 2 页开始新的页码

【英文标题】：Skipping page number on the coversheet in Access Report, and new page number from the 2nd page by group

【发布时间】：2017-04-01 00:27:01

【问题描述】：

我能够找到 Access VBA 的示例代码，用于在每个组标题中插入“页面页”。每个组都是给我们客户的单独发票。

现在，我想添加显示发票总金额的封面，我可以这样做。但是封面弄乱了封面之后第一张发票的页码。

例如，第一张发票只有一页。因此，如果没有封面，页码显示为“第 1 页，共 1 页”。

但是当我添加报告标题并强制“选择后”新页面时，封面显示第 1 页，共 2 页，第一张发票显示第 2 页，共 2 页 em>。

有没有办法在封面上完全没有页码，而下一页有新的第1页编号？

ctlGrpPages是显示页码的控件，放在页脚中。

提前非常感谢您。

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As 
Integer)
Dim i As Integer


  If Me.Pages = 0 Then
    ReDim Preserve GrpArrayPage(Me.Page + 1)
ReDim Preserve GrpArrayPages(Me.Page + 1)
GrpNameCurrent = Me![Claim Number]
If GrpNameCurrent = GrpNamePrevious Then
    GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
    GrpPages = GrpArrayPage(Me.Page)
        For i = Me.Page - ((GrpPages) - 1) To Me.Page
            GrpArrayPages(i) = GrpPages
        Next i
Else
    GrpPage = 1
    GrpArrayPage(Me.Page) = GrpPage
    GrpArrayPages(Me.Page) = GrpPage
End If
 Else
   Me!ctlGrpPages.Value = "Page " & GrpArrayPage(Me.Page) & " of " & 
GrpArrayPages(Me.Page)
  End If
  GrpNamePrevious = GrpNameCurrent
End Sub

【参考方案1】：

您对报表属性 PageFooter 的设置是什么？您是否尝试过“不使用 Rpt Hdr”？

【讨论】：

谢谢 June7。我尝试查找报告属性页页脚，但在 Access 2013 中，我无法找到此设置。你知道这在 Access 2013 中是否存在？

仅供参考 - 现在，我添加了一个没有声明编号的虚拟记录，它强制按顺序排序以显示该虚拟记录是第一个显示的记录。这会强制报告标题只有第 1 页，共 1 页。但我想知道如何在 2013 年正确设置属性。

您已选择报告（单击报告左上角的方块）。该属性将在属性表​​格式选项卡上找到。从未使用过 Access 2013，但无法想象该属性会被删除。

属性表在那里，但我不知道我应该更改哪一个。无论如何，我找到了一种解决方法。感谢您的意见。