I am designing a form that requires consecutive numbers on each form, like a
certificate which requires a new number each time you print one form and it
has been set up in Excel. How is this set up. If I print 100 forms, I want
each form to have consecutive numbers. Is it possible?

You can use this macro to get the job done. I am not sure this is the
best way, but if it works!

=======copy======================

Sub PrintForms()
Dim copies As Integer
Dim MyInput As Integer

MyInput = InputBox("How many forms do you want to print?")

For copies = 1 To MyInput
Cells(50, 8).Select 'this will be where you want to form number to
appear

ActiveCell.Value = copies 'this assumes you want to start with #1. You
can
'change this to
ActiveCell.Value=ActiveCell.value +1

'and manually set the first
'form number before you run the
macro

ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Next copies

End Sub

=========copy==============================

sjamdavies Wrote:
I am designing a form that requires consecutive numbers on each form,
like a
certificate which requires a new number each time you print one form
and it
has been set up in Excel. How is this set up. If I print 100 forms, I
want
each form to have consecutive numbers. Is it possible?


--
kevindmorgan
------------------------------------------------------------------------
kevindmorgan's Profile: http://www.excelforum.com/member.php...o&userid=32232
View this thread: http://www.excelforum.com/showthread...hreadid=519950