Print Packing Slip # Increase

[bguenther]

Hi,
I am new to this forum. From what i have read, there are a lot of kind people here. So i was wondering if someone could help me with creating a packing slip that will increase the packing slip number by one each time it prints. I found one that does that but if you put say print 5 copies in the print dialog box then it still just increases the 6th by one and all 5 copies have the same number. What i want to do is just have an empty form with all the fields that i need and print maybe 500 copies and then my drivers can fill then out by hand.

[VBA Noob]

Try this.

It increases Sheet1 cell A1 number each time it's run and allows you to enter number of copies

Please Login or Register  to view this content.

VBA Noob

[Trebor76]

Hi there,

Welcome to the forum.

The following should do the trick - just enter the first packing slip number into the relevant cell (currently set at G3 - change as required [as noted in the code]) and then run the following macro:

Please Login or Register  to view this content.

HTH

Robert

[bguenther]

Thanks alot guys! With the first reply i get an error but it looks like it would do much the same as the second one. I have exactly what i want now, Thanks again.

[VBA Noob]

It may be because you don't have a sheet called Sheet 1

VBA Noob

[bguenther]

You are absolutly right, that was the mistake i made I did not name it sheet1.
One thing is it does not give a new number to any additional ones you print. I put the number 1000 in Cell A1 and the window poped up and I entered the # 2 and it printed to copies with the number 1001.

With Trebor76 post that one does what i want but it makes each copy you want a new job and i have a laser printer and it takes a nice long break between each job you give it.
Sorry for asking for so much help.

[VBA Noob]

One thing is it does not give a new number to any additional ones you print.

Each time you run it it increases the number by 1

So 1000 in A1 and then the code it will print 1001. Next time you run the macro it will increase by 1 (1002) etc

VBA Noob

[bguenther]

Thanks for the reply.
Would it work to set it up so that it will increase each print by one not just after every time the macro runs ? The macro is doing exactly what you are saying it does but i never want to have 2 packing slips with the same number. If I run the code the way it is and say for example in the input box you enter the number 3 it will create a job for the printer to print 3 copies but each copy will have the same packing slip number.If you then decide to print some more the next job will have a new number but all the copies of that job will have the same number.

[VBA Noob]

Try

Please Login or Register  to view this content.

VBA Noob

[bguenther]

Hi,
When i run the code I get a Run-time error '9': Subscript out of range
Am i doing something wrong ? or is it in the code?
Thanks.

[VBA Noob]

Same error has before?. Did you remember to change the sheet name

VBA Noob

[bguenther]

Sorry my dumb mistakes. It does exactly what it should. You have been a great help.