You can use a macro such as this:
Code:
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
Hi,
I'm new to excel macros - I'm trying to print off a number of invoices that increase invoice number with each print. Have done the macros to do this for single print and I'm trying to figure out your macros to do multiple prints!
Can you advise on what to put in the 1,,,,,,1 bit as I think that's where I'm messing up.
This is my formula:
Range("E46:F47").Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
ActiveWindow.SelectedSheets.PrintOut copies:=1
Dim i As Long, startnum As Long, lastnum As Long
startnum = Application.InputBox("31", "Print Job Number", 1, , , , , 1)
lastnum = Application.InputBox("122", "Print Job Number", 1, , , , , 1)
For i = startnum To lastnum
Range("E46:F47").Value = i
ActiveWindow.SelectedSheets.PrintOut copies:=2
Next
End Sub
I need to print from page 31 to 122 - any help?
Thank you!!