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.