Подскажите пожалуйста ,как программно в отчете в MS Access 2002 установить параметры страницы?

' Задаёт параметры для ранее открытого отчёта
Sub ЗадатьПараметрыОтчёта(ИмяОтчёта As String, ЛевоеПоле As Long, ПравоеПоле As Long, _
ВерхнееПоле As Long, НижнееПоле As Long, Ориентация As Integer, _
Optional КоличествоСтолбцов As Long, Optional РасстановкаМеждуСтолбцами As Long, _
Optional РастановкаМеждуСтроками As Long, Optional ШиринаСтолбца As Long, Optional ВысотаСтолбца As Long, _
Optional РазмерСтолбцаПоРазмеруДанных As Boolean, Optional ВзаимноеРасположениеСтолбцов As Long)

'ЗадатьПараметрыОтчёта "отч_Счёт", 567, 567 / 2, 567 * 3, 567, acPRORLandscape, 1, 0, 0, 0, 0, True, acPRHorizontalColumnLayout
'все поля в твипах, 1 твип = 1/20 * 1/72 дюйма = 1440 дюйма, 1дюйм = 25,4 мм
With Reports(ИмяОтчёта).Printer
.LeftMargin = ЛевоеПоле * МиллиметровЧерезТвипы ' задаём размеры полей
.RightMargin = ПравоеПоле * МиллиметровЧерезТвипы
.TopMargin = ВерхнееПоле * МиллиметровЧерезТвипы
.BottomMargin = НижнееПоле * МиллиметровЧерезТвипы
.Orientation = Ориентация ' положение портрет/пейзаж

.ItemsAcross = 1 ' временно устанавливаем колво столбцов 1, чтобы размеры нормально инициализовывались
.DefaultSize = False ' временно отключаем "по размеру данных"

.ItemsAcross = КоличествоСтолбцов
.ColumnSpacing = РасстановкаМеждуСтолбцами ' устанавливаем значения расстановок
.RowSpacing = РастановкаМеждуСтроками
.ItemSizeWidth = ШиринаСтолбца
.ItemSizeHeight = ВысотаСтолбца
.DefaultSize = РазмерСтолбцаПоРазмеруДанных
.ItemLayout = ВзаимноеРасположениеСтолбцов ' прядок следование "столбцов"

End With

End Sub