HotXLS-dokumentation
Startside Indhold Oversigt

AfterExport hændelse

Occurs after the dbgrid is exported into the Excel

Beskrivelse

Du kan bruge denne hændelse til at anvende yderligere formatering på hele det eksporterede område

Syntaks

TDBGridAfterExport = procedure (Sender: TObject; Range: IXLSRange) of object;
Sender TObject. Angiver the TGridToXLS component that triggered the event
Range IXLSRange. Repræsenterer a range which contains the whole exported area

Eksempel

This example puts the thick border around the exported area 

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