Ich hoffe mir kann hier jemand weiterhelfen, ich kriegs leider nicht hin :/
Mein Code im Commandbutton:
"
Private Sub CommandButton1_Click()
With Sheets("QKT2-1")
.PageSetup.PrintArea = "$B$3:$E$10"
.PrintOut
.PageSetup.PrintArea = ""
End With
End Sub
"
Da der Druckbereich relativ klein ist, 1/4 von DIN A4, will ich, dass der Druckbereich auf eine DIN A4 Seite angepasst (vergrößert) wird. Zunmindest soweit wie es Sinn macht. Zur Seite könnte es ca. 50% breiter sein und nach unten ist noch viel mehr Platz (also es soll nicht auf Biegen und Brechen bis komplett nach unten gezogen werden, sonst passen die Proportionen nicht mehr).
Hoffe dafür gibts eine einfache Lösung im Sinne von paar Code.
Vielen Dank schon mal Vorab! Für Hilfe wäre ich sehr Dankbar