ITabPageContinuousRanges.Assign

Fore Syntax

Assign(Value: ITabPageContinuousRanges);

Fore.NET Syntax

Assign(Value: Prognoz.Platform.Interop.Tab.ITabPageContinuousRanges);

Parameters

Value. Contains parameters of continuous ranges set for the current page..

Description

The Assign method sets continuous ranges passed as input parameters for the current table.

Comments

The Value value is passed as input parameter.

Fore Example

To execute the example a regular report with the Report identifier containing two pages is required. The border of report pages contains some data.

Sub UserProc;
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Tab2: ITabSheet;
    TabPS: ITabPageSettings;
    TabPS2: ITabPageSettings;
Begin
    MB := MetaBaseClass.Active;
    Report := MB.ItemById("Report").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ContinuousColumns.Add(50, 3);
    TabPS.ContinuousRows.Add(50, 3);
    Tab2 := (Report.Sheets.Item(1) As IPrxTable).TabSheet;
    TabPS2 := Tab2.PageSettings;
    TabPS2.ContinuousColumns.Assign(TabPS.ContinuousColumns);
    TabPS2.ContinuousRows.Assign(TabPS.ContinuousRows);
    (Report As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the continuous ranges created for the first page are moved to the second page. On exporting or printing of the regular report the data limited with this range is placed on one page.

Fore.NET Example

To execute the example a regular report with the Report identifier containing two pages is required. The border of report pages contains some data.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Sub UserProc(Params: StartParams);
Var
    MB: IMetaBase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Tab2: ITabSheet;
    TabPS: ITabPageSettings;
    TabPS2: ITabPageSettings;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["Report"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
    TabPS := Tab.PageSettings;
    TabPS.ContinuousColumns.Add(50, 3);
    TabPS.ContinuousRows.Add(50, 5);
    Tab2 := (Report.Sheets.Item[1] As IPrxTable).TabSheet;
    TabPS2 := Tab2.PageSettings;
    TabPS2.ContinuousColumns.Assign(TabPS.ContinuousColumns);
    TabPS2.ContinuousRows.Assign(TabPS.ContinuousRows);
    (Report As IMetabaseObject).Save();
End Sub;