Macro not printing

[sgm1911]

I am trying to run the macro below, but it doesnt seem to be printing. What is wrong with it ?

Option Explicit
Sub test()
    Dim i As Integer
    i = 1
    While Sheets(2).Cells(i, 1).Value <> ""
        Sheets(1).Cells(1, 1).Value = Sheets(2).Cells(i, 1).Value
        Sheets(1).PrintOut
        i = i + 1
    Wend
End Sub