Excelautomation und Pagesetup

[Jens Schumann]

Hallo,
mit u.s. Code formatiere ich die Druckausgabe einer zuvor generierten Exceltabelle.
Die Excelarbeitsmappe wird komplett vom Programm erstellt und gefüllt.
Als Bremse hat sich das Setzen der Druckoptionen herausgestellt. Im Vergleich
zu den anderen Operationen arbeitet dieser Codeabschnitt ziemlich langsam.

Delphi-Quellcode:

    With Excel.WorkSheet.PageSetup do
      begin
      LeftHeader := '';
      CenterHeader := '';
      RightHeader := '';
      LeftFooter := '';
      CenterFooter := '';
      RightFooter := FRightFooterText;
      LeftMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.787401575);
      RightMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.787401575);
      TopMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.984251969);
      BottomMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.984251969);
      HeaderMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.4921259845);
      FooterMargin := SystemDataProvider.Excel.Application.InchesToPoints(0.4921259845);
      PrintHeadings := False;
      PrintGridlines := False;
      PrintComments := xlPrintNoComments;
      //       PrintQuality[1] := 600;
      CenterHorizontally := False;
      CenterVertically := False;
      If FDataprovider.PrintOrientation=poPortrait then
        Orientation := xlPortrait
        else
          Orientation := xlLandscape;
      Draft := False;
      PaperSize := xlPaperA4;
      FirstPageNumber := xlAutomatic;
      Order := xlDownThenOver;
      BlackAndWhite := False;
      Zoom := False;
      FitToPagesWide := 1;
      FitToPagesTall := False;
      //   PrintErrors := xlPrintErrorsDisplayed;
      end; // With Excel.WorkSheet.PageSetup do

Gibt evt. einen anderen Zugriffsweg um die Sache zu beschleunigen?

Beim Zugriff auf die Zellen ist es z.B. schneller über das Range Objeckt anstatt über die Selection zu gehen.