Set Print Area with dynmic range in rows

Sheets("SHEET1").PageSetup.PrintArea = Range("A1:M" & Cells(Rows.Count, 1).End(xlUp).Row).Address

Originally Posted by jolivanes

Sheets("SHEET1").PageSetup.PrintArea = Range("A1:M" & Cells(Rows.Count, 1).End(xlUp).Row).Address

Sir, One last help needed. In the same code i wants to add a new print area i.e. range $N$1:$S$18. I wants to print this range $N$1:$S$18 in the separate page after the print of my earlier range "A1:M" & Cells(Rows.Count, 1).End(xlUp).Row).Address ends.

Please help if it is possible. Thanks.

- Abhinav

There is all kind of ways of doing that. One way would be

Sub Maybe()
Dim prnArr, i As Long
prnArr = Array(Range("A1:M" & Cells(Rows.Count, 1).End(xlUp).Row), Range("N1:S18"))
    For i = LBound(prnArr) To UBound(prnArr)
        Range(prnArr(i).Address).PrintOut
    Next i
End Sub

You can extend the Array as much as you like/need.

Thank you so much

You're welcome

Thank you Jolivanes. That worked for me.