В Delphi 7 для организации диалога задания параметров страницы введен новый компонент PageSetupDialog (см. скриншот).

Он служит для указания размеров бумаги, выбора способа подачи бумаги, выбора ориентации страницы и определения размеров полей.

Свойства диалога PageSetupDialog

MarginBottom, MarginLeft, MarginRight и MarginTop — соответственно определяют нижнее, левое, правое и верхнее поля страницы;

PageHeihgt и PageWidth — определяют высоту и ширину страницы;

Options типа TPageSetupDialogOptions — используется для настройки ряда параметров диалогового окна (по умолчанию параметр psoDefaultMinMargins имеет значение True, остальные параметры имеют значение False); содержит такие параметры, как:

• psoDefaultMinMargins — запрещает пользователю изменять минимальные поля страницы;
• psoDefaultDesableMargins — запрещает пользователю изменять поля страницы;
• psoDefaultDesableOrientation— запрещает пользователю изменять ориентацию страницы;
• psoDefaultDesablePagePainting— запрещает отображение образца страницы по умолчанию;
• psoDefaultDesablePaper — запрещает пользователю изменять размеры страницы и источник бумаги;
• psoDefaultDesablePrinter — делает неактивной кнопку вызова диалога настройки дополнительных параметров принтера;

Units — служит для выбора единиц измерения размеров полей, задаваемых пользователем (в миллиметрах или в дюймах).

Вызов рассматриваемого диалогового окна выполняется так:

Вызов диалогового окна

PageSetupDialog1.Execute;

Метод Execute вызывается как процедура, а не как функция, поскольку возвращаемый ею результат не используется.