Hallo Werwurm,
ich habe diesen Code verwendet.
Delphi-Quellcode:
procedure TfrmExcelMain.btnWSNameAendernClick(Sender: TObject);
begin
Excel.Worksheets[1].Activate;
Excel.Worksheets[1].Name:='Einzel';
Excel.ActiveSheet.PageSetup.PaperSize := 9; //A4
Excel.ActiveSheet.PageSetup.Orientation := 2; //Landscape
// Fit to X page(s) wide by Y tall
Excel.ActiveSheet.PageSetup.Zoom := FALSE;
Excel.ActiveSheet.PageSetup.FitToPagesWide := 1;
Excel.ActiveSheet.PageSetup.FitToPagesTall := 1;
Excel.visible:= TRUE;
end;
Allerdings arbeite ich hier mit Excel 2000. Wenn das tatsächlich ein Excel 2003 Problem ist, kann ich das erst am Montag in der Firma prüfen.
Bis bald Chemiker