try ActiveSheet.PageSetup.PrintArea = myPrintRange.Address