print screen
 

i am in the page break view. i need help with my code that sets the print
screne.

ActiveSheet.PageSetup.PrintArea = ""

how do i give it a range from the A2 to where there is no more text in
column A??

print screen
 

Give this a shot...

Sub printer()
printablearea = Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Address
ActiveSheet.PageSetup.PrintArea = printablearea
End Sub