eine Frage noch...kann es sein, dass folgender Code nicht ausreichend zur Anweisung ist?
With ActiveSheet.PageSetup
.PrintArea = "$D$1:$J$230"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Mehr als Druckbereich festlegen und auf eine Seite quetschen will ich ja nicht - oder müssen immer alle Parameter im PageSetup gesetzt werden?
Danke und Grüsse,
Hendrik