You can use this event to apply additional formatting to the whole header

IXLSWith

TObject. Nurodo the TDataToXLS component that triggered the event

With

IXLSWith

This example puts the thick border around the header TObject. Nurodo the TDataToXLS component that triggered the eventWith IXLSWith. Atitinka a range which contains the whole headerThis example puts the thick border around the header

procedure	TForm1.DataToXLS1AfterTitlesWith IXLSWith. Atitinka a range which contains the whole header);
With	With.Borders

begin

end

procedure TForm1.DataToXLS1AfterTitles(Sender: TObject;
  Range: IXLSRange);
begin
  With Range.Borders do begin
     Item[xlEdgeBottom].LineStyle := xlContinuous;
     Item[xlEdgeBottom].Weight := xlThick;
     Item[xlEdgeTop].LineStyle := xlContinuous;
     Item[xlEdgeTop].Weight := xlThick;
     Item[xlEdgeLeft].LineStyle := xlContinuous;
     Item[xlEdgeLeft].Weight := xlThick;
     Item[xlEdgeRight].LineStyle := xlContinuous;
     Item[xlEdgeRight].Weight := xlThick;
  end;
end;