printing on excel

  • Thread starter Thread starter James Westh
  • Start date Start date
J

James Westh

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.
 
Back
Top