....................................................................
for i = 1 to 49
Sheets(i).Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.PrintTitleColumns = ""
End With
next i
....................................................................