[求助]报表分组打印中，各组的页码如何显示？

老鬼

我设了一张报表，以主表中的ID进行分组分页显示。但因为每组的数据量不一样，有的组只有一页，有的组则有两三页。现在我想让组页脚按每组的页数进行类似“共*页，每*页”，请问如何处理？

THANK!

老鬼

没人回答我再顶！

wwwwa

示例：

Dim GrpArrayPage(), GrpArrayPages()
Dim GrpNameCurrent As Variant, GrpNamePrevious As Variant
Dim GrpPage As Integer, GrpPages As Integer

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
1001 Dim I As Integer
1002 If Me.Pages = 0 Then   '准备资料时计算各群组页数
1003    ReDim Preserve GrpArrayPage(Me.Page + 1)
1004    ReDim Preserve GrpArrayPages(Me.Page + 1)
1005    GrpNameCurrent = Me![工程名称]    '取得现用群组字段之值
1006    If GrpNameCurrent = GrpNamePrevious Then '如果现用群组大于1页
1007        GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1
1008        GrpPages = GrpArrayPage(Me.Page)
1009        For I = Me.Page - ((GrpPages) - 1) To Me.Page
1010            GrpArrayPages(I) = GrpPages
1011        Next I
1012    Else                             '如果现用群组只有1页
1013        GrpPage = 1
1014        GrpArrayPage(Me.Page) = GrpPage
1015        GrpArrayPages(Me.Page) = GrpPage
1016    End If
1017 Else              '打印
1018     Me![组页码].Caption = "  第" & _
                GrpArrayPage(Me.Page) & "页，共" & GrpArrayPages(Me.Page) & "页"
1019 End If
1020 GrpNamePrevious = GrpNameCurrent
End Sub

Private Sub Report_Page()
GrpPage = 0
GrpPages = 0
GrpNameCurrent = ""
GrpNamePrevious = ""
End Sub

老鬼

没想到这么麻烦，俺试试

tz-chf

northwind

老鬼

我在NORTHWIND中有看到设置分组显示"第*页",但是没看到有"共*页",不知楼上的是在哪张报表中看到的,请指点一下.谢谢.

tz-chf

各国雇员销售额

老鬼

那张表没看到分组的“共*页”，只有分组的“第*页”。而且这种方法一旦设置了“节重复”为是，就不能用了~~~~

还有没有别的方法？主要想知道分组的“共*页”。不过三楼的方法已经算不错了。

老鬼

但是三楼的代码测试了不行，不知道有没有人测试可以的。三楼的朋友可不可以给个文件？

wwwwa

不会吧，我在ACCESS2000中

测试过，没有问题。