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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Autonumber field in Excel that behaves the same as Access 0
Need VBA Macro to Loop through pages and print counter in footer of each page 9
Blank Page After Envelope-Label Wizard 5
Generate series according to range and increment 5
VLookup sum multiple matches 1
Fill cells based on the other 3 cells unique combination the value on the target cell 0
Page numbering with Merged Document and IF statements 1
EXCEL time match 3

Top