PageHeight: Integer;
Свойство PageHeight определяет количество страниц по вертикали (в высоту), используемых для размещения и печати рабочего пространства. По умолчанию значение свойства равно «1».
Свойство актуально, если свойство FitToPages установлено в True.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
WS : IWxWorkspace;
PS : IWxPageSettings;
Begin
PS := ws.PageSettings;
PS.FitToPages := True;
PS.PageHeight := 2;
PS.PageWidth := 3;
End Sub UserProc;
После выполнения примера при печати рабочее пространство будет размещено не более чем на 3 страницах в ширину и 2 страниц в высоту.
См. также: