I have this macro that I want to use to print invoices starting at say 14000 to 14050 but the problem is I want to print three copies of each (14000 x3, etc.) What do I need to add to this as it only prints one of each now? Thanks!!!!
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 NextEnd Sub</pre>
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 NextEnd Sub</pre>
