Keep printing until all values in a column is printed out - Macro

Try this:
Change Sheet2 with the the name of the second sheet.

Sub Print10s()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim i As Long, r As Long
Set sh1 = ThisWorkbook.ActiveSheet
Set sh2 = ThisWorkbook.Worksheets("Sheet2")
r = sh1.Range("A" & sh1.Rows.Count).End(xlUp).Row
i = 1
sh1.PageSetup.PrintArea = "A1:A10"
With sh2
    Do While i <= r
        .Range("A1:A10").Value = sh1.Range("A" & i & ":A" & i + 9).Value
        sh2.PrintOut
        i = i + 10
    Loop
End With

End Sub