Incrementing a number on multiple copy printing

  • Thread starter Thread starter Jerry M. Gartner
  • Start date Start date
J

Jerry M. Gartner

Greetings All:

I've created a service ticket document in Excel 2003 and would like to have incremented serialized numbers on each ticket printed. I print blanks and then fill them out on the job site. There is really nothing to them but I can't figure out how to get this to work. Any ideas are appreciated
 
Jerry,

The basic approach to this is to increment your number, print the sheet,
then do it again. For example, with your number to be incremented in cell
A1:

Dim i As Integer

For i = 1 to 100 '100 is the number of copies to be printed
Range("A1").Value = Range("A1").Value + 1
Activesheet.Printout
Next i

Remember to save your file after printing, so that you save the latest
number, and can start from there the next time.

HTH,
Bernie
MS Excel MVP

Greetings All:

I've created a service ticket document in Excel 2003 and would like to
have incremented serialized numbers on each ticket printed. I print blanks
and then fill them out on the job site. There is really nothing to them but
I can't figure out how to get this to work. Any ideas are appreciated
 
Back
Top