Auto Number Copies of Worksheet Printed

Sub print0()

 'in print dialog amount=1
 n = [a3] 'may be any cell for ccpy amount
 'Application.EnableEvents = False
 
 For i = 1 To n
     With ActiveSheet.PageSetup
   '     .LeftHeader = ""
    '    .CenterHeader = ""
     '   .RightHeader = ""
      '  .LeftFooter = ""
        .CenterFooter = Format(i, "000")
 
    End With
      ActiveWindow.SelectedSheets.PrintOut
 Next i
 'Application.EnableEvents = True
End Sub