Print 10 rows per page - need help finishing macro

Hi!

I have a few documents I want to print that are 200+ rows each. I want to print 10 rows per page plus the header row. Is there a quick macro I can use to do this? I found this one below but it is only for 1 row per page and I am struggling to fix it for 10 pages! Thanks for your help.

Sub PrintMeOnly()
Application.ScreenUpdating = False
Dim i As Long
Dim i2 As Long
Dim i3 As Long
Dim c As Long
Dim tmpRow1 As Variant
Dim tmpMoreRows(60) As Variant
c = 1
Sheets("Senate + above").Activate
tmpRow1 = Rows("1:1").Value
For i = 1 To 60
c = c + i
tmpMoreRows(i) = Rows(c).Value
c = 1
Next
Sheets("Sheet2").Activate
For i2 = 1 To 7

Range("A1").Value = ""
Range("A1").Value = tmpRow1


Range("A2").Value = ""
Range("A2").Value = tmpMoreRows(i2)


Sheets("Sheet2").PrintOut
Next
Range("A1").Value = ""
Range("A3").Value = ""
Sheets("Senate + above").Activate
Application.ScreenUpdating = True
End Sub

I have 10 different workbooks open right now. Each workbook has a different number of cells I want to print so I figured I'd just run the macro in each one. I just want 10 cells plus the header per printed page. I can either have a macro that auto prints or a macro that just copies 10 rows to each sheet (plus the header) then I can print it all at once. Either way works, I just can't figure it out!