IWxPageSettings.FitToPages

Синтаксис

FitToPages: Boolean;

FitToPages: boolean;

Описание

Свойство FitToPages определяет размещение и печать рабочего пространства на заданном количестве страниц по горизонтали и вертикали.

Комментарии

По умолчанию свойство имеет значение True. Определите количество страниц по горизонтали (PageWidth) и вертикали (PageHeight).

Если значение свойства False, то определите масштаб рабочего пространства (Scale).

Пример

Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP».

Добавьте ссылки на системные сборки: Andy, Metabase.

Sub UserProc;
Var
    mb: IMetabase;
    wsp: IWxWorkspace;
    PS: IWxPageSettings;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    wsp := mb.ItemById("WSP").Edit As IWxWorkspace;
    PS := wsp.PageSettings;
    PS.FitToPages := True;
    PS.PageHeight := 2;
    PS.PageWidth := 3;
    (wsp As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Andy;
 
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    wsp: IWxWorkspace;
    PS: IWxPageSettings;
Begin
    // Получим репозиторий
    mb := Params.Metabase;
    wsp := mb.ItemById["WSP"].Edit() As IWxWorkspace;
    PS := wsp.PageSettings;
    PS.FitToPages := True;
    PS.PageHeight := 2;
    PS.PageWidth := 3;
    (wsp As IMetabaseObject).Save();
End Sub;

После выполнения примера при печати рабочее пространство будет размещено не более чем на 3 страницах в ширину и 2 страниц в высоту.

См. также:

IWxPageSettings