ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I in excel print consecutive numbers from one form? (https://www.excelbanter.com/excel-discussion-misc-queries/75837-how-do-i-excel-print-consecutive-numbers-one-form.html)

sjamdavies

How do I in excel print consecutive numbers from one form?
 
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

How do I in excel print consecutive numbers from one form?
 

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



All times are GMT +1. The time now is 03:35 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com