Процедура обработки события Печать примечания
Листинг 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).
