Filling in Numbers on Forms

[JMay]

I'd like to create a PRENUMBERED FORM - two to a page (then just
cut them down the middle to have stock 8-1/2X 5-1/2 forms.)

I've begun by creating a simple (single) page/range (A1:G51) on my Sheet1.

Within that range I have in Cell C3 "My Form" (which is the Top Copy)

Within that range I have in Cell C26 "My Form" (which is the Bottom Copy)

Along side each of the above, in column "G", (In say G3 - I want to
be able to enter a number, say 1000

Set up a variable Input Box asking How many Form Sheets do you wish to Print?
Also, InputBox Starting Number (my 1000 above furnished) and Run the Macro
How many Form Sheets? 10
Statring Number? 1000

Solution 10 sheets = 20 forms are produced - numbered from 1000 to 1019

Does such a template exist anywhere?
Thanks in advance..

 

[JMay]

Found help at Ron de Bruin's Site
did some modification, so I'm close.. (should probably loop back to input
statement if user inputs an ODD number, but wasn't sure how to do that...
Any suggestions?
Tks,
Jim

Sub PrintFormCopies()
Dim FormCount As Long
Dim FirstNumber As Long
Dim CurrCount As Integer
Dim Temp As Long
FirstNumber = Application.InputBox("What is the First number to
Assign?", Type:=1)
FormCount = Application.InputBox("How many Forms do you want?", Type:=1)
Temp = FormCount Mod 2
MsgBox "Please Enter an Even number, not an Odd Number"
FormCount = Application.InputBox("How many Forms do you want?", Type:=1)
' End If
For CurrCount = 1 To FormCount / 2
With ActiveSheet
.Range("G3").Value = FirstNumber
.Range("G26").Value = FirstNumber + 1

'Print the sheet
.PrintOut
End With
FirstNumber = FirstNumber + 2
Next CurrCount
With ActiveSheet
.Range("G3").ClearContents
.Range("G26").ClearContents
End With
End Sub