Count # of times a worksheet is printed

I don't have Excel 2007 but in the "This Workbook code, you can put this code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value + 1

End Sub

This increments the value in A1 (change that to whatever cell you want to track in) by 1 for each time you print. However, if set to print multiple copies, this code only counts it once. :-/