How to create VBA code to Increment Number each time a copy is printed

How to create VBA code to increment number each time a copy is printed

Requirement:

The user has the following code which the user has tried to wrote that will automatically increment the Quote # each time a quote is printed.

The user has inserted this into my workbook.

Code:

 Private Sub Workbook_BeforePrint1(Cancel As Boolean)
Cancel = True
Dim cnt As Long
Application.EnableEvents = False
With Sheets("QUOTE")
    
        .Range("D3").Value = .Range("d3").Value + 1
      
   .PrintOut copies:=1
    Next
End With
Application.EnableEvents = True
End Sub

When Printing the Quote # is not being incremented by 1.

For eg 1000001 to change to 1000002 after printing, the third print 1000003 etc.

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/148534-increment-number-each-time-a-copy-is-printed

Solution:

You had a 1 in the Sub name, also a "Next" without a "For".

Try this

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    Dim cnt As Long
    Application.EnableEvents = False
    With Sheets("QUOTE")
         
        .Range("D3").Value = .Range("d3").Value + 1
         
        .PrintOut copies:=1
    
    End With
    Application.EnableEvents = True

End Sub

Obtained from the OzGrid Help Forum.

Solution provided by KjBox.