Incrementing a number on multiple copy printing

[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

 

[Bernie Deitrick]

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

 

[Ron de Bruin]

Try this

http://www.rondebruin.nl/print.htm#number

--
Regards Ron de Bruin
http://www.rondebruin.nl


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 M. Gartner]

This approach works nicely. Thanks for the info, Bernie.