ITabPrintScale.FitToPages

Syntax

FitToPages: Boolean;

Description

The FitToPages property determines, whether the table scale should be adjusted in such a way, that the data fit the PageWidth of pages in width and the PageHeight of pages in height.

Comments

If FitToPages=False, the scale on printing is set as percentage ratio to the original size. To set the percentage ratio, the Value property is used.

Example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    TabSettig: ITabPageSettings;
    PrScale: ITabPrintScale;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("Reg_rep").Edit;
    Rep := MObj As IPrxReport;
    Tab := Rep.ActiveSheet.Table;
    TabSettig := Tab.PageSettings;
    PrScale := TabSettig.Scale;
    PrScale.FitToPages := True;
    PrScale.PageHeight := 3;
    PrScale.PageWidth := 1;
    MObj.Save;
End Sub UserProc;

After executing the example the page settings for the active sheet of the regular report will be changed. On printing the scale will be adjusted in such a way, that the data fits one page in width and three pages in height.