Pre-numbered tickets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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!
 
Back
Top