I have a form created in excel we use to write up work orders. I have now
been asked to keep blank copies (about a hundred at a time) that are
pre-numbered. Of course, I don't want to change the number, print, change the
number, print etc, a hundred times to get all those blanks. Do you know how I
can do this easily? any help would be appreciated.

Jenni

Hi Jenni

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

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



"Ripple919" wrote in message ...
I have a form created in excel we use to write up work orders. I have now
been asked to keep blank copies (about a hundred at a time) that are
pre-numbered. Of course, I don't want to change the number, print, change the
number, print etc, a hundred times to get all those blanks. Do you know how I
can do this easily? any help would be appreciated.

Jenni

Here is some code for you. You need to put it into a module and attach a
button to it. It increments the number in cell E1 on "Sheet1" by 1 and then
prints a copy. It allows you to print a variable number of copies base on an
input.

Public Sub PrintCopies()
Dim intNumberOfCopies As Integer
Dim intCounter As Integer

intNumberOfCopies = InputBox("Please enter the number of copes to
print.", "Copies", 100)

For intCounter = 1 To intNumberOfCopies
With Sheets("Sheet1")
.Range("E1") = .Range("E1") + 1
.PrintOut
End With
Next intCounter
End Sub

If you need help getting this up and runniing just reply back and I can give
you a hand...

HTH
"Ripple919" wrote:

I have a form created in excel we use to write up work orders. I have now
been asked to keep blank copies (about a hundred at a time) that are
pre-numbered. Of course, I don't want to change the number, print, change the
number, print etc, a hundred times to get all those blanks. Do you know how I
can do this easily? any help would be appreciated.

Jenni

Ron and Jim,

Thank you both, I took both your suggestions combined them modifed them and
came up with a great working copy! Thank you!

"Jim Thomlinson" wrote:

Here is some code for you. You need to put it into a module and attach a
button to it. It increments the number in cell E1 on "Sheet1" by 1 and then
prints a copy. It allows you to print a variable number of copies base on an
input.

Public Sub PrintCopies()
Dim intNumberOfCopies As Integer
Dim intCounter As Integer

intNumberOfCopies = InputBox("Please enter the number of copes to
print.", "Copies", 100)

For intCounter = 1 To intNumberOfCopies
With Sheets("Sheet1")
.Range("E1") = .Range("E1") + 1
.PrintOut
End With
Next intCounter
End Sub

If you need help getting this up and runniing just reply back and I can give
you a hand...

HTH
"Ripple919" wrote:

I have a form created in excel we use to write up work orders. I have now
been asked to keep blank copies (about a hundred at a time) that are
pre-numbered. Of course, I don't want to change the number, print, change the
number, print etc, a hundred times to get all those blanks. Do you know how I
can do this easily? any help would be appreciated.

Jenni