Assistance with Numbering Sheets Based on Copies Printed

[rwong8]

Hello

New member here! I have a process in which I have to print various copies of the same worksheets day by day depending on the schedule. Based on the number of copies printed, I would like each worksheet printed numbered based on the number of copies I print. For example, if I needed to print 5 copies of the same worksheet, I would like each of worksheets numbered 1, 2, 3, 4 or 5.

What would be the easiest way to accomplish this? I was originally a cell in which you enter the value of the number of copies printed, and a button which would automatically begin the printing process, and would also number each worksheet. Any help would be appreciated!

 

[footoo]

With the number of copies in A1 :

Sub v()
Dim c&
For c = 1 To [A1]
    With ActiveSheet
        .PageSetup.CenterFooter = c
        .PrintOut
    End With
Next
End Sub

 

[rwong8]

Thank you so much. going to try this tomorrow!

 

[rwong8]

Hey Footoo

This VBA code worked perfectly thank you very much!

I did have one modification that I am trying to make, but am having some difficulty. As of right now, those numbers "1,2,3,4, or 5" are going to the bottom of the page in a footer. What would needed to be done if I wanted these numbers instead of in the footer of the document, to be inserted into a certain cell? For example, if I wanted it to be inserted in cell "J4"?

 

[footoo]

Sub v()
Dim c&
For c = 1 To [A1]
    With ActiveSheet
        .[J4] = c
        .PrintOut
    End With
Next
End Sub

Make sure you clear the footer inserted by the previous code.