Question : Excel - Increment copy number on 2 page survey

Excel 2000
I have a two page survey created in MS Excel.
Page 1 needs a three digit copy number (ie: 001, 002 etc.).
I need to print 200 copies, each with a unique number on page 1 (ie: 001 thru 200). No alpha characters.
I just want to hit print and have the copy number automatically increment.
or
I could use a macro that asks for the number of copies and automatically increments the copy number.

Any ideas or suggestions would be greatly appreciated.

Tosagua

Answer : Excel - Increment copy number on 2 page survey

You might consider a macro like this...

Sub PrintXCopies

    Dim NumCopies As Long
    Dim Counter As Long

    NumCopies = InputBox("How many copies to print?")

    With ThisWorkbook.Worksheets("Sheet1")
        .[a1].NumberFormat = "000"
        For Counter = 1 To NumCopies
            .[a1] = Counter
            .PrintOut
        Next
    End With

    MsgBox "Done"

End Sub
Random Solutions  
 
programming4us programming4us