FitToPages: Boolean;
Свойство FitToPages определяет размещение и печать рабочего пространства на заданном количестве страниц по горизонтали и вертикали.
По умолчанию свойство имеет значение True. Определите количество страниц по горизонтали (PageWidth) и вертикали (PageHeight).
Если значение свойства False, то определите масштаб рабочего пространства (Scale).
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
WS : IWxWorkspace;
PS : IWxPageSettings;
Begin
PS := ws.PageSettings;
PS.FitToPages := False;
PS.Scale := 0.5;
End Sub UserProc;
После выполнения примера будут изменены параметры страницы: при печати будет использоваться масштаб 50% от оригинального размера рабочего пространства.
См. также: