How to +1 to a cell everytime the sheet prints?

[Geoff A]

I want to add 1 to a numerical cell (A1) everytime the
worksheet is printed. Any thoughts?

 

[Chip Pearson]

Geoff,

You can use the BeforePrint event procedure to do this. In the ThisWorkbook
code module, use the following code. Change the references to Sheet1 and
cell A1 to the appropriate sheet and cell.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ThisWorkbook.Worksheets("Sheet1").Range("A1")
.Value = .Value + 1
End With
End Sub

 

[Jean-Paul Viel]

Hi,



In the module of ThisWorkbook in the event BeforePrint, have code like that:



Worksheets("sheet1").Range("a1") = Worksheets("sheet1").Range("a1") + 1

 

[Tom Ogilvy]

Does a printpreview count? It does in beforeprint - just a heads up.