ein eher "kosmetisches" Problem, aber in der Recherche bin ich nicht fündig geworden:
Am Ende einer Kopier- und Sortierorgie (ca. 500 Zeilen im Ausdruck max.) justiere ich mit
Columns("C:O").EntireColumn.AutoFit
die Tabelleninhalte auf eine lesbare Breite. Die Anzahl der in den Zellen enthaltenen Zeichen variiert, so dass eine fixe Einstellung über ColumnWidth nicht in Frage kommt.
Im anschließenden PageSetup suche ich nun nach einer Möglichkeit, für den Ausdruck die volle Blattbreite zu nutzen. Gefunden habe ich den Einstieg
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
usw.
End With
Da tut sich aber nichts, wahrscheinlich weil die auszudruckenden Spalten in ihrer Gesamtbreite nicht ausreichen, um die volle Blattbreite zu nutzen. Genau dies will ich jedoch erreichen, da sonst die eingerichteten Kopf- und Fußzeilen "überhängen".
Gibt es eine Möglichkeit, die auszudruckenden Spalten (am besten proportional) per VBA automatisch an die Blattbreite anzupassen?
Ich hoffe, das war einigermaßen anschaulich beschrieben und würde mich über eine Antwort freuen.
Eine Gute Nacht noch aus Berlin
Roland Hochhäuser