ITabPrintScale.PageHeight

Syntax

PageHeight: Integer;

Description

The PageHeight property determines the number of pages limiting the height of a table to be printed.

It is used if the FitToPages property is set to True.

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.