Warum wird die Seite nicht eingerichtet?
Peter
Innerhalb eines Codes, der alle Sheets abarbeitet, versuche ich alle Tabellen mit PageSetup zu bearbeiten
Der Header wird berücksichtigt. Das FitToPages bewirkt nichts (es kommen mehrere Setien).
Was mache ich falsch?
Danke für eine Antwort.
Gruss, Peter
With Sheets(xSheet).PageSetup
.LeftHeader = _
"&""Arial,Fett""&12Beleg"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With