Auto increment on print function

[Jay125950]

Hello, i am trying to find a way that i can apply code to a workbook that automatically counts up +1 every time i print the document, I have an invoice i have generated and when i sit down and do multiple at a time it would save me a lot of headache if i hit print and it automatically increased box F5 from 000 to 001 etc.

Thanks in advance for any help!

 

[hajiali]

try this. this will print and change the value of F5 every time it prints. Note the the format of the Cell needs to be Custom to be "000"

Sub PrintInvoice()
Dim x As Integer
Dim c As Variant
c = InputBox("NUMBER OF COPIES", "PRINT")
For x = 1 To c
    Range("F5").Value = x
    Sheet1.PrintOut
      Next x
MsgBox "DONE PRINTING", vbOKOnly, "PRINT COMPLETED"
End Sub

try with entering low number as a test.

 

[Jay125950]

Every time I run this it just "resets" the vtalue to "1" as apposed to incrementing by 1, as a test I manually entered random numbers as the value in the format of "005, 009, etc." and when I run the print function it changes it to "1"

 

[hajiali]

Try this:

Sub PrintInvoice()
Dim x As Integer
Dim c As Variant
c = InputBox("NUMBER OF COPIES", "PRINT")
For x = 1 To c
    Range("F5").Value = Range("F5").Value + 1
    Sheet1.PrintOut
      Next x
MsgBox "DONE PRINTING", vbOKOnly, "PRINT COMPLETED"
End Sub

 

[Jay125950]

that worked, Thank you!

 

[hajiali]

Glad I could help.

 

[WizardsEye]

try this. this will print and change the value of F5 every time it prints. Note the the format of the Cell needs to be Custom to be "000"

Sub PrintInvoice()
Dim x As Integer
Dim c As Variant
c = InputBox("NUMBER OF COPIES", "PRINT")
For x = 1 To c
    Range("F5").Value = x
    Sheet1.PrintOut
      Next x
MsgBox "DONE PRINTING", vbOKOnly, "PRINT COMPLETED"
End Sub

try with entering low number as a test.

Is it possible to use this same idea, but have it work across a second sheet? Then when you print, it prints sheet1, sheet2, then changes the number?

 

[hajiali]

Assuming value in both sheets are in F5. I have not test this but try this

Sub PrintInvoice()
Dim x As Integer
Dim c As Variant
c = InputBox("NUMBER OF COPIES", "PRINT")
For x = 1 To c
    Sheet1.Range("F5").Value = x
    Sheet1.PrintOut
    Sheet2.Range("F5").Value = x
    Sheet2.printout
      Next x
MsgBox "DONE PRINTING", vbOKOnly, "PRINT COMPLETED"
End Sub

 

[hajiali]

I would do another For statement if you have a lot of Sheets to loop through. That’s just for 2 sheets