Got a spreadsheet thats a simple order form we need to print over and over, there are two order forms on the sheet (we cut the sheet of A4 in half to make two A5 orders)
Each sheet needs to print with a sequential number on it starting with the number in existing cell on the left form and flowing on through the print run 1 by 1.
I’ve got the beginning of the code
Sub INCPRINT() Dim CopiesCount As Long Dim CopieNumber As Long CopiesCount = Application.InputBox("How many Copies do you want?", Type:=1) For CopieNumber = 1 To CopiesCount With ActiveSheet 'number in cell G8 (prints "n") .Range("G8").Value = CopieNumber 'number in cell G8 (prints "n of z") '.Range("G8").Value = CopieNumber & " of " & CopiesCount 'number in the footer (prints "n of z") '.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount 'Print the sheet .PrintOut End With Next CopieNumber End Sub
but its not complete and its not working, its taking the number in G8 and instead of taking it and adding 1 and printing as I want its putting 1 in there and then working… that and I’ve not worked out how to get it to put then next number in O8 ether
Can I have a little help please