EvenPageHeader: IHeader;
The EvenPageHeader property returns parameters of even pages headers.
The property is relevant if the OddAndEvenPagesHeaderFooter property is set to True.
Executing the example requires that the repository contains a regular report with the REPORT identifier.
Add links to the Metabase and Report system assemblies.
Sub UserProc;
Var
Metabase: IMetabase;
Report : IPrxReport;
Sheet: IPrxSheet;
Headers: IPrxSheetHeaders;
Param: IPrxSheetHeader;
Begin
Metabase := MetabaseClass.Active;
Report := Metabase.ItemById("REPORT").Edit As IPrxReport;
Sheet := Report.Sheets.Item(0);
Headers := Sheet.HeadersFooters;
// Set up header and footer indents for even pages
Param := Headers.EvenPageHeader;
Param.Margin := 15;
Param := Headers.EvenPageFooter;
Param.Margin := 15;
// Take into account settings for even pages
Headers.OddAndEvenPagesHeaderFooter := True;
Debug.Writeline("Indent of the header of even pages: " +
Headers.EvenPageHeader.Margin.ToString);
Debug.Writeline("Indent of footer of even pages: " +
Headers.EvenPageFooter.Margin.ToString);
(Report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example indent parameters of even pages headers and footers are determined. The console displays information about header and footer indents.
See also: