Ich wollte den Druckbereich eines Blattes automatisch festlegen.
Das sieht dann so aus:
Sub Test()
If jclick = vbYes Then
With Sheets("Tabelle1")
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With
End Sub
Nun wird Das Blatt auch auf eine Seite angepasst, allerdings mit sehr großen Rändern rechts, unten, links - obwohl dort noch genug Platz ist!
Wie kann das geändert werden?