Print increment by 1

P

Paul D

Is there a way to have a field in a worksheet to increment by one, every
time I print?
Thanks
Paul
 
R

Ron de Bruin

Or if you want not the print the pages in one time.
Use the beforeprint event

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet.Range("a1")
.Value = .Value + 1
.PrintOut
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
 
Top