HotXLS-Dokumentation
Start Inhalt Übersicht

AfterExport-Ereignis

Tritt auf, nachdem das Dataset in Excel exportiert wurde

Beschreibung

Sie können dieses Ereignis verwenden, um zusätzliche Formatierung auf den gesamten exportierten Bereich anzuwenden

Syntax

TAfterExport = procedure (Sender: TObject; Range: IXLSRange) of object;
Sender TObject. Gibt TDataToXLS Komponente dass triggered Ereignis
Range IXLSRange. Repräsentiert einen Bereich, der den gesamten exportierten Bereich enthält

Beispiel

Dieses Beispiel setzt einen dicken Rahmen um den exportierten Bereich 

procedure TForm1.DataToXLS1AfterExport(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;