Thread: Print number into Footer

Hi,

I was wondering if anyone here could help me.
I have one excel sheet with only one page of information.
But i'll be printing out 40 copies and wish to track the distribution of the document.

Is there a macro that will make the right footer correspond to the print number. I.e first off the printer will have one in the footer, second one printed will have two.. and so forth.

Thanks.. any suggestions will be helpful.

P.S - If there is a way of doing this without a macro, even better!

with a litle reworking of
http://www.rondebruin.nl/print.htm#same

Code:

Sub PrintCopies_ActiveSheet_1()
    Dim CopiesCount As Long
    Dim CopieNumber As Integer
    CopiesCount = Application.InputBox("How many copies do you want", Type:=1)

    For CopieNumber = 1 To CopiesCount
        With ActiveSheet
        
            
            .Range("d1").Value = Range("d1").Value + 1

        .PageSetup.RightFooter = Range("d1").Value
        .PrintOut 'Print the sheet
        End With
        
    Next CopieNumber
ActiveWorkbook.Save
End Sub

placed in a new module(see my sig for where to put code)
then assigned to a button (which you use instead of print)
change d1 to somwhere outside your print area as it holds the count of copies
sheet saves after each print to make sure count is preserved