Hallo, was für eine Excel Version verwendest du ?
Unter Excel 2002 funktioniert das FitToPagesWide.
Noch ein Tipp:
Excel.Worksheets['Tabelle1'].Activate;
Tabelle1 heisst es nur in der deutschen Version. In der englischen z.B Sheet1.
Es ist also besser das Worksheet per Index anzusprechen.
Gib am Schluss den Speicher wieder frei:
Delphi-Quellcode:
WBobj := Unassigned;
Excel := Unassigned;