엑셀 인쇄 반복 매크로

Public Sub 인쇄()

    Dim sijak As Integer
    Dim machim As Integer
    sijak = Range("o1").Value
    machim = Range("p1").Value
    For sijak = Range("o1").Value To machim
        Range("o1").Value = sijak
        ActiveCell.Offset(0, 0).Value = sijak
        ActiveSheet.PrintOut
    Next sijak
End Sub