Спасибо, хотя акцент делался на определение количества страниц в группе

Может быть как-то так

Option Compare Database
Option Explicit
Public iGrNum As Integer 'порядковый номер группы
'Public aiGrPages(100) As Integer 'поместить во внешний модуль

Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
For i = 0 To 99
aiGrPages(i) = 0
Next i
iGrNum = 0
End Sub

Private Sub Report_Page()
aiGrPages(iGrNum) = aiGrPages(iGrNum) + 1
End Sub

Private Sub ЗаголовокГруппы0_Format(Cancel As Integer, FormatCount As Integer)
iGrNum = iGrNum + 1
[Page] = 1 'сброс нумерации страниц. Все решение для первой части.
End Sub

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me!fld_grnum = iGrNum 'поле в нижнем колонтитуле. Обратите внимание на значения при просмотре и при печати
End Sub

Private Sub НижнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
Me!fld_grpages = aiGrPages(iGrNum _
- КОЭФФИЦИЕНТ_ЗАВИСЯЩИЙ_ОТ_ЧИСЛА_СРАБАТЫВАНИЯ_СОБЫТИЯ_ЗаголовокГруппы0_Format_ДЛЯ_ОТДЕЛЬНОЙ_ГРУППЫ _
* ЧИСЛО_ГРУПП)
End Sub