Anzahl der Seiten in Excel festlegen

[Werwurm]

Hallo Chemiker,

Zitat:

@Werwurm:
also bei mir funktioniert Dein Code. Gut ich muss den Ausdruck mit der Lupe betrachten, aber er funktioniert.

Kannst Du es so einrichten, dass vor dem WBobj.close dir mal in der Seitenansicht ansiehst, ob die Skalierung nach Deinen Wünschen durchgeführt worden ist?

Das habe ich getan.
Ich habe den Delphi-Code schrittweise durchlaufen lassen und nach jeder Zeile das Ergebnis in Excel kontrolliert. Das Umstellen auf Papierformat A4, als auch auf Querformat funktionieren wunderbar.
Lediglich das FitToPagesTall zeigt keine Wirkung.
Verändere ich z.B. den Zoom auf 95% wird das aber wiederum übernommen.

Zu dem Tipp mit der Lupe
Auf der zweiten Seite befindet sich maximal 1-2 Spalte. Somit ist das kleiner Zoomen kein Problem. Der Ausdruck ist noch mit bloßem Auge und ohne Brille lesbar

[Chemiker]

Hallo toms

alles klar.


Bis bald Chemiker

[Chemiker]

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

[Werwurm]

Hallo Chemiker,

ich kann mir kaum vorstellen, das es ein Problem mit Excel 2003 bzw. 2007 ist.
Schließlich gilt offensichtlich noch die gleiche Syntax.
Wenn Du es bei Dir in der Firma trotzdem testen könntest wäre ich Dir sehr dankbar.

Leider habe ich keine ältere Version als 2003 zur Verfügung.

Schon mal Vielen Dank

[Chemiker]

Hallo Werwurm,

noch 2 Möglichkeiten.

1. Im Task-manager unter Prozesse nachsehen, ob ein noch nicht geschlossener Excel – Prozess läuft. Evt. den Rechner komplett runterfahren um mal den Speicher zu bereinigen.

2. Sicherstellen das das Workbook das Skaliert werden soll auch Aktiviert ist.

Delphi-Quellcode:

Excel.Worksheets['Einzel'].PageSetup.Zoom := FALSE;
             Excel.Worksheets['Einzel'].PageSetup.FitToPagesWide := 1;
             Excel.Worksheets['Einzel'].PageSetup.FitToPagesTall := 1;

Vielleicht das noch mal probieren.


Bis bald Chemiker

[Werwurm]

Hallo Chemiker,

Du bist mein Held

Laut Task Manager lief kein Excel Prozess mehr.
Da ich schon zwei Tage dabei bin, wurde zwischenzeitlich auch mein PC neu gestartet.

Deshalb habe ich Deinen zweiten Vorschlag versucht.

Delphi-Quellcode:

Excel.Worksheets['Einzel'].PageSetup.Zoom := FALSE; 
Excel.Worksheets['Einzel'].PageSetup.FitToPagesWide := 1; 
Excel.Worksheets['Einzel'].PageSetup.FitToPagesTall := 1;

Und siehe da jetzt funktioniert es!
Auf die einfachsten Lösungen kommt man meist nicht von alleine...

Vielen Dank für Deine Hilfe

Schönen Sonntag noch.