printin a sheet with incremental overlay #

[getto678]

Hello

Basically Im crap at excel and need to start learning the in's and outs more but I have drafted up a double sided spreadsheet that I would like to run a series of prints 'inhouse'

I would like it if I could insert an overlay serial number on the sheet that would enable me to carry out future prints adding an incremental number to the serial number EG printing off 100 prints where the serial number runs from
CODA/BL1_00001
CODA/BL1_00100

IS this possible using general tool tricks of the day ie VB, macros or does an add on program exist that will enable this to be generated on a fly between the program and the printer.

Many thanks in advance!

---
Getto678
Ireland

[sriram.19801980]

Use Vba programming and use for loop

Please Login or Register  to view this content.

use the above code in vba and try may be some changes

[getto678]

i tried it but it didnt work......

thanks though for trying to help...perhaps Im entering it in wrong area!

[royUK]

Where would the serial number be?

[royUK]

You could use the BeforePrint ebvent like this

Please Login or Register  to view this content.

[getto678]

I am looking to insert serial number on sheet one of worksheet. It should generate a number based on the intitial alphanumerical object entered such as CODA/BL1_0000.

Its just so that If I should run a print of a hundred of these, my final print is incrementally up to CODA/BL1_00100 [end]

At the minute, I am searching VB websites to see If I can find help from there. Im also looking for add on extensions that I might be able to enable through excel that will automatically call the function

Thanks

[royUK]

Check the code that I have given you

[royUK]

This code will prompt the user for the number of sheets to print, then increment the n umber with each print

Please Login or Register  to view this content.

[getto678]

rob,

thanks for your reply. I tried testing the code however if is throwing up an error on after running the handler. I tried running it a few times but to no success. Now looking at your code i was curious as to whether or not I am supposed to insert in to a specific cell rather than the cell I already have a dummy serial number in [ serNum = CLng(Right(Sheet1.Cells(1, 1).Value, 5)) ]

I've included a copy of the file if you want to look at it
http://easymadedesigns.com/tmp/downl...el/example.xls

[getto678]

Roy,

In your code... am I attaching this to a blank cell or should it be to the cell that already contains the serial number template 0001

?

Thanks

[royUK]

The code is assuming the serial number is in A1

[getto678]

ah ok.... I got it.

Thank you