Здравствуйте, в отчете с группировкой по учреждению необходимо выводить итоги на каждой странице.

Option Compare Database
Option Explicit
Dim S As Currency, S1 As Currency
Private Sub Report_Open(Cancel As Integer)
S = 0
S1 = 0
End Sub

Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
S = 0
S1 = 0
End Sub

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me![Итог] = S1
End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
S = S + Me![Сумма]
S1 = S
If Me.ПримечаниеУчреждение. НЕ ОТОБРАЖАЕТСЯ НА СТРАНИЦЕ Then
Me.НижнийКолонтитул.Visible = False
Else
Me.НижнийКолонтитул.Visible = True
End If
End Sub

Просмотрела материал по Товарной накладной-12 на этом форуме, но в моем случае не известно сколько будет листов. Как реализовать: Если на текущем листе не отображается ПримечаниеУчреждения, то отобразить НижнийКолонтитур?

http://www.sql.ru/forum/1157176/po-stranichnye-itogi-v-otchete