Printing sequential numbers

[BMI]

I have created a form in excel. I will be using this form to print many duplicates of the same form but I need the forms to have numbers sequentially printed on them (ie. Ticket 001, 002, 003, etc.) Is there a way to make excel do this?

If so, can I print form numbers 001-303 and then come back later and tell excel to start printing the form using the beginning number 304-477 or whatever number I choose? Thank you!

 

[btadams]

You can use a macro such as this:

Sub PrintJobs()
Dim i As Long, startnum As Long, lastnum As Long

    startnum = Application.InputBox("Enter the first job number to be printed", "Print Job Number", 1, , , , , 1)
    lastnum = Application.InputBox("Enter the last job number to be printed", "Print Job Number", 1, , , , , 1)

    For i = startnum To lastnum
        Range("B1").Value = i
        ActiveWindow.SelectedSheets.PrintOut
    Next

End Sub

 

[BMI]

Wow...thanks! That worked perfectly

 

[BMI]

I am new to macros and VBA. I am sure you probably know an easy way to tweak the macro you sent me to accomplish the following: I am creating 2 part forms so I just realized I need Excel to print each page in the sequence TWICE. For example 113, 113, 114, 114, 115, 115, etc. instead of just 113, 114, 115, etc.

Thank you!

 

[btadams]

If you just need two copies printed out, this might work:

Sub PrintJobs()
Dim i As Long, startnum As Long, lastnum As Long

    startnum = Application.InputBox("Enter the first job number to be printed", "Print Job Number", 1, , , , , 1)
    lastnum = Application.InputBox("Enter the last job number to be printed", "Print Job Number", 1, , , , , 1)

    For i = startnum To lastnum
        Range("B1").Value = i
        ActiveWindow.SelectedSheets.PrintOut copies:=2
    Next

End Sub

 

[BMI]

Outstanding, once again. Thank you!

 

[BMI]

Is there a way to revise this macro to print sequential dates (10/30/10, 10/31/10, 11/1/10, etc.) instead of using simple numbers?

Thanks!

 

[btadams]

try this:

Sub PrintJobs()
Dim i As Long, startnum As Date

    startnum = Application.InputBox("Enter the starting date (dd/mm/yyyy)", "Print Job Number", Date, , , , , 1)
    If startnum = 0 Then Exit Sub 'user clicked Cancel

    For i = 1 To ActiveWindow.SelectedSheets.Count
        ActiveWindow.SelectedSheets(i).Range("B1").Value = startnum
        ActiveWindow.SelectedSheets(i).Range("B1").EntireColumn.AutoFit
        ActiveWindow.SelectedSheets.PrintOut copies:=2
    Next

End Sub

 

[purchasing]

I am trying to do this exact same thing however I've never created a macro and am struggling with this code. I would be very gratful for any simple instructions on how to make this work. I'm using Excel 2010 and am trying to print a form that I need the number to be sequential.
Thank you.

 

[btadams]

I am trying to do this exact same thing however I've never created a macro and am struggling with this code. I would be very gratful for any simple instructions on how to make this work. I'm using Excel 2010 and am trying to print a form that I need the number to be sequential.
Thank you.

Purchasing,

If you need help copying this macro to your personal macro workbook, follow the directions here....

Copy your macros to a Personal Macro Workbook - Excel - Office.com