TitleColumns: ITabRange;
The TitleColumns property determines the range of title columns.
As a value, specify the range consisting of one or several columns, for example: A:A, A:B. The composite range can also be specified: A:A;J:J.
Title columns are printed on each page. If a composite range is specified, action area of each part is limited with the next range part. The title column action area can also be limited by means of the ITabPageSettings.TitleColumnsScope property.
Executing this example assumes that the repository contains a regular report with the identifier Report.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Settings: IPrxPageSettings;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Edit As IPrxReport;
Settings := Report.ActiveSheet.PageSettings;
//Set up title column range
Settings.TitleColumns := Report.ParseRange("A:A;S:S").Range;
//Limit title column range
Settings.TitleColumnsScope := Report.ParseRange("R:R;Z:Z").Range;
(Report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example the range of title columns and their action range are set in print parameters for active sheet. The first title column is printed on all pages including data before the R column. The second title column is printed on all pages including data before the Z column. The pages corresponding to all the other columns are printed without title column data.
The requirements and result of the Fore.NET Example execution match with those in the Fore Example.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Settings: IPrxPageSettings;
Begin
MB := Params.Metabase;
Report := MB.ItemById["Report"].Edit() As IPrxReport;
Settings := Report.ActiveSheet.PageSettings;
//Set up title column range
Settings.TitleColumns := Report.ParseRange("A:A;S:S").Range;
//Limit title column range
Settings.TitleColumnsScope := Report.ParseRange("R:R;Z:Z").Range;
(Report As IMetabaseObject).Save();
End Sub;
See also: