Pre-numbered tickets

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" <[email protected]> wrote in message news:[email protected]...
>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