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