Please help to set up print areas.

[nikkoabc]

Hi, Guys

I have range A1:T32; range A33:T64; range A65:T96; range A97:A128; each time increasing 32 lines, until last range A321:T352, total 10 ranges. I want to print each range in one page, someone can help me to finish my VBA with loop? Thanks.
Nikko

[Code]

Private Sub masco1()
With Sheets("Sheet1")
.PageSetup.PrintArea = "$A$1:$T$32" &

End Sub