Процедура обработки события Форматирование верхнего колонтитула

Листинг 13.1. Процедура обработки события Форматирование верхнего колонтитула

Private Sub PageHeader()_Format(Cancel As Integer,_

FormatCount As Integer)

Dim intx As Integer

' Помещает заголовки столбцов в поля в верхнем колонтитуле.

Me("Head" + Format(0)) = rstReport(0).Name

For intX = 1 To intColumnCount - 1

Me("Head" + Format(intX)) =_

MonthRus(CInt(rstReport(intX).Name))

Next intX

' Вводит в ближайшее свободное поле заголовок "Итого".

Me("Head" + Format(intColumnCount)) = "Итого"

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

For intX = (intColumnCount +1) То conTotalColumns - 1

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

Next intX

End Sub

В этой процедуре используется функция MonthRus, которая по порядковому номеру месяца выдает его название. Мы здесь не приводим текста этой функции, надеясь, что вы сможете написать ее сами conTotalColumns — константа, которая описана на уровне модуля и значение которой определяет максимальное число столбцов в отчете. В данном примере conTotalColumns равна 14.