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

Try this

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
Dim c As Byte
sh1.PageSetup.PrintArea = "A1:B20"
With sh2
    .Range("A1:B20").Value = ""
    Do While i < r
        For c = 1 To 20 Step 2
            i = i + 1
            .Range("A" & c & ":B" & c).Value = sh1.Range("A" & i).Value
        Next
        sh2.PrintOut
    Loop
End With
End Sub