Параметры печатной страницы в VBA Excel. Свойство PageSetup объекта Worksheet. Объект PageSetup и описание некоторых его свойств с примерами.
Описание объекта PageSetup
Объект PageSetup возвращается свойством PageSetup объекта Worksheet:
|
1 |
Expression.PageSetup |
где Expression — это выражение (переменная), возвращающее объект Worksheet.
Свойства объекта PageSetup
Диапазон печати
Установить диапазон для печати из кода VBA Excel можно с помощью свойства PageSetup.PrintArea:
|
1 2 |
Worksheets("Лист1").PageSetup.PrintArea = "D7:L30" Лист1.PageSetup.PrintArea = Selection.Address |
Размеры полей
Свойства, отвечающие за размер полей печатной страницы:
| Свойство | Описание |
|---|---|
| LeftMargin | Возвращает или задает размер левого поля |
| TopMargin | Возвращает или задает размер верхнего поля |
| RightMargin | Возвращает или задает размер правого поля |
| BottomMargin | Возвращает или задает размер нижнего поля |
Свойства, отвечающие за размер полей, предназначены для чтения и записи, выражаются в точках (1 точка равна 1/72 дюйма или ≈1/28 см). Тип данных — Double.
Для того, чтобы вручную не высчитывать количество точек в дюймах или сантиметрах, существуют методы Application.InchesToPoints и Application.CentimetersToPoints, которые автоматически переводят дюймы и сантиметры в точки.
Пример задания размеров полей для печатной страницы:
|
1 2 3 4 5 6 7 8 |
Sub Primer1() With Лист4.PageSetup .LeftMargin = 72 '1 дюйм (2,54 см) .TopMargin = Application.CentimetersToPoints(2) '2 см .RightMargin = 28 'приблизительно 1 см .BottomMargin = Application.InchesToPoints(0.5) '0,5 дюйма (1,27 см) End With End Sub |
Пример чтения размеров заданных полей для печатной страницы и запись их в ячейки диапазона [A1:A4] активного листа:
|
1 2 3 4 5 6 7 8 |
Sub Primer2() With Лист4.PageSetup [A1] = .LeftMargin [A2] = .TopMargin [A3] = .RightMargin [A4] = .BottomMargin End With End Sub |
Масштаб
Масштабирование рабочего листа для печати осуществляется в VBA Excel с помощью свойства PageSetup.Zoom:
|
1 2 |
Лист4.PageSetup.Zoom = 200 'Увеличение масштаба до 200% (от 100%) Worksheets("Лист4").PageSetup.Zoom = 80 'Уменьшение масштаба до 80% (от 100%) |
Свойство PageSetup.Zoom может задавать или возвращать значение от 10 до 400 процентов.
Ориентация страницы
За ориентацию печатной страницы отвечает свойство PageSetup.Orientation, которое возвращает или задает значение константы из коллекции XlPageOrientation.
Константы коллекции XlPageOrientation:
| Константа | Значение | Описание |
|---|---|---|
| xlPortrait | 1 | Портретный режим (вертикальная ориентация) |
| xlLandscape | 2 | Ландшафтный режим (горизонтальная ориентация) |
Примеры установки ориентации печатной страницы из кода VBA Excel:
|
1 2 |
Worksheets("Лист4").PageSetup.Orientation = xlPortrait ActiveSheet.PageSetup.Orientation = xlLandscape |