IPrxSheetHeaderPart.Font

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Sheet: IPrxSheet;
    Headers: IPrxSheetHeaders;
    Param: IPrxSheetHeader;
    HeaderPart: IPrxSheetHeaderPart;
Begin
    MB := MetabaseClass.Active;
    // Получим регламентный отчёт
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Получим первый лист
    Sheet := Report.Sheets.Item(0);
    // Получим колонтитулы
    Headers := Sheet.HeadersFooters;
    // Настроим колонтитулы для первого листа
    Param := Headers.FirstPageHeader;
    HeaderPart := Param.Center;
    HeaderPart.Text := "&[Page] из &[Pages]";
    HeaderPart.Color := New GxColor.CreateRGB(0,70,255);
    HeaderPart.Font := New GxFont.Create("Tahoma", 9);
End Sub UserProc;