Процедура обработки события Печать примечания

Листинг 13.4. Процедура обработки события Печать примечания

Private Sub ReportFooter4_Print(Cancel As Integer,_

PrintCount As Integer)

Dim intX As Integer

' Помещает суммы по столбцам в поля примечания.

For intX = 1 То intColumnCount - 1

Me("Tot" + Format(intX)) = IngRgColumnTotal(intX)

Next intX

' Помещает общий итог в поле примечания.

Me("Tot" + Format(intColumnCount)) = IngReportTotal

' Скрывает неиспользуемые поля в примечании отчета.

For intX = intColumnCount + 1 То conTotalColumns - 1

Me("Tot" + Format(intX)).Visible = False

Next intX

End Sub

Для корректной работы нужно еще добавить две небольшие процедуры в свойства отчета:

при закрытии отчета нужно закрыть базовый набор записей — обработка события Закрытие (On Close);
при отсутствии данных в базовом наборе записей нужно закрыть этот набор и прервать формирование отчета — событие Отсутствие данных (On No Data).

Ниже приведены обе эти процедуры (листинги 13.5 и 13.6).

Главная сайта