Value: Double;
The Value property determines the percent ratio that is used to adjust the scale during table printing.
It is used if the FitToPages property is set to False.
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 := False;
PrScale.Value := 0.5;
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 decreased to be two times smaller than the original table size.
See also: