In diesem Beispiel wird der Bereich A1:C5 in Sheet1 als Druckbereich festgelegt.
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"
In diesem Beispiel wird der markierte Bereich in Sheet1 als Druckbereich festgelegt. Beachten Sie, dass die Address-Methode verwendet wird, um eine Adresse in der Bezugsart A1 zurückzugeben.
Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address