set print area if needed over multiple pages

Hi, I have this code which works well to keep my print area to the range I want it. The only issue is when I keep adding rows it will confine it to 1 page and keep shrinking to fit.

How do I adjust the code to keep same size but make it go over more pages if necessary, and if possible keep the title of the page which is in row 301?


[VBA]Sub SetArea1()
Dim LastCellRow
LastCellRow = ActiveSheet.Range("b" & Range("ak301")).Row
While Cells(LastCellRow, 24) = 0
LastCellRow = LastCellRow - 1
Wend
ActiveSheet.PageSetup.PrintArea = Range("b301", Cells(LastCellRow, 24)).Address
End Sub[/VBA]

hi.

fit into one page wide and tall
[VBA]
Sub fit()

With ActiveSheet.PageSetup
.zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub
[/VBA]

zoom 100%
[VBA]
Sub zoom()

With ActiveSheet.PageSetup
.zoom = 100
End With

End Sub
[/VBA]


row num to repeat at top
[VBA]Sub repattop()

With ActiveSheet.PageSetup
.PrintTitleRows = "$301:$301"
End With

End Sub
[/VBA]