EvenPageHeader: IEaxHeader;
EvenPageHeader: Prognoz.Platform.Interop.Express.IEaxHeader;
Свойство EvenPageHeader возвращает параметры верхнего колонтитула чётных страниц.
Для получения параметров нижнего колонтитула чётных страниц используйте свойство IEaxHeaders.EvenPageFooter.
Для использования разных колонтитулов для чётных и нечётных страниц используйте свойство IEaxHeaders.OddAndEvenPagesHeaderFooter.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором EXPRESS.
Добавьте ссылки на системные сборки: Express, Metabase.
Sub UserProc;
Var
Metabase: IMetabase;
Express : IEaxAnalyzer;
Headers: IEaxHeaders;
Param: IEaxHeader;
Begin
Metabase := MetabaseClass.Active;
Express := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
Headers := Express.HeadersFooters;
// Настроим отступ колонтитулов для чётных страниц
Param := Headers.EvenPageHeader;
Param.Margin := 15;
Param := Headers.EvenPageFooter;
Param.Margin := 15;
// Учтем настройки для чётных страниц
Headers.OddAndEvenPagesHeaderFooter := True;
Debug.Writeline("Отступ верхнего колонтитула чётных страниц: " +
Headers.EvenPageHeader.Margin.ToString);
Debug.Writeline("Отступ нижнего колонтитула чётных страниц: " +
Headers.EvenPageFooter.Margin.ToString);
(Express As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Express;
…
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase;
Express : IEaxAnalyzer;
Headers: IEaxHeaders;
Param: IEaxHeader;
Begin
Metabase := Params.Metabase;
Express := Metabase.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
Headers := Express.HeadersFooters;
// Настроим отступ колонтитулов для чётных страниц
Param := Headers.EvenPageHeader;
Param.Margin := 15;
Param := Headers.EvenPageFooter;
Param.Margin := 15;
// Учтем настройки для чётных страниц
Headers.OddAndEvenPagesHeaderFooter := True;
System.Diagnostics.Debug.Writeline("Отступ верхнего колонтитула чётных страниц: " +
Headers.EvenPageHeader.Margin.ToString());
System.Diagnostics.Debug.Writeline("Отступ нижнего колонтитула чётных страниц: " +
Headers.EvenPageFooter.Margin.ToString());
(Express As IMetabaseObject).Save();
End Sub;
В результате выполнения примера будут определены параметры отступа колонтитулов чётных страниц. В окно консоли будет выведена информация об отступах верхнего и нижнего колонтитулов.
См. также: