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