Add sequential numbers to copies of 1 sheet using BeforePrint event

I want to print multiple copies (let's say 5) of the same sheet but with each copy being numbered sequentially (in cell A1).
I want this to happen when I go to File>Print so that I am able to select the printer and properties in the regular fashion (and not through VBA).
To start the code when I go to File>Print, I am using the BeforePrint Event then cycling though each copy and printing with the copy number.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer

For i = 1 To 5
Range("A1").Value = "'0" & i
ActiveSheet.PrintOut
Next i
End Sub

This seems to make an unwanted loop so that every time it calls ActiveSheet.PrintOut, it restarts the whole routine. Is there any way around this?

It is important to me that I can print through the normal path File>Print, and that the copies are numbered sequentially.

Thank you!

Found this same situation and it solved the problem!

excelforum.com/excel-programming-vba-macros/798836-endless-loop-when-using-beforeprint-event.html

Correction:

Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True