ITabSheetExporter.Label

Syntax

Label: IGxDocumentLabel;

Description

The Label property determines the parameters of table labeling. This property is used, when mandatory access is enabled, in case labelling (security level) is set for an object.

Example

Class MyLabel: Object, IGxDocumentLabel

Function get_UserId: String;

Begin

Return "MyUserId";

End Function get_UserId;

Function get_UserName: String;

Begin

Return "MyUserName";

End Function get_UserName;

Function get_Scheme: String;

Begin

Return "MyScheme";

End Function get_Scheme;

Function get_Mark: String;

Begin

Return "MyMark";

End Function get_Mark;

Function get_IsON: Boolean;

Begin

Return True;

End Function get_IsON;

End Class MyLabel;

 

Sub Main;

Var

MB: IMetabase;

Rep: IPrxReport;

Tab: ITabSheet;

Exp: ITabSheetExporter;

DocumLab: IGxDocumentLabel;

Begin

MB := MetabaseClass.Active;

DocumLab := New MyLabel.Create As IGxDocumentLabel;

Rep := MB.ItemById("Reg_rep").Bind As IPrxReport;

Tab := Rep.ActiveSheet.Table;

Exp := New TabSheetExporter.Create;

Exp.TabSheet := Tab;

Exp.Label := DocumLab;

Exp.ExportToFile("c:\1.xls", "XLS");

End Sub Main;

As a result the active sheet of a regular report will be exported to an XLS file and marked with its own label "MyLabel".

See also:

ITabSheetExporter