PrintArea Property
Returns or sets the range to be printed, as a string using A1-style references in the language of the macro. Read/write String.
Remarks
Set this property to False or to the empty string ("") to set the print area to the entire sheet.
This property applies only to worksheet pages.
Example
This example sets the print area to cells A1:C5 on Sheet1.
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"
This example sets the print area to the current region on Sheet1. Note that you use the Address property to return an A1-style address.
Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address