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 Main;

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 Main;

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.