Hi All,

Does anyone know how i can place a page number or counter formula on a
spreadsheet that will automatically update everytime i print a copy out.
Essentially i want to count how many times i have printed the one
spreadsheet over a period of time. i.e - the counter or page number will be
10 if i have printed 10 copies of the spreadsheet or printed the sheet ten
times.

Please give some guidance if anyone has done this before.

Thanks,
James

Give yourself a macro to run.

Option Explicit
Sub testme()
With Worksheets("sheet1")
With .Range("a1")
If IsNumeric(.Value) Then
.Value = .Value + 1
.Parent.PrintOut preview:=True
Else
MsgBox "Cell isn't numeric!"
End If
End With
End With
End Sub

Remember to save the workbook or the counter will go back to what it was when
you opened the workbook.

I used A1 of Sheet1 and preview:=true (to save trees). Modify to match your
needs.

James Westh wrote:

Hi All,

Does anyone know how i can place a page number or counter formula on a
spreadsheet that will automatically update everytime i print a copy out.
Essentially i want to count how many times i have printed the one
spreadsheet over a period of time. i.e - the counter or page number will be
10 if i have printed 10 copies of the spreadsheet or printed the sheet ten
times.

Please give some guidance if anyone has done this before.

Thanks,
James

--

Dave Peterson