This is not an offer to write your VBA code for you.
http://msdn2.microsoft.com/en-us/library/aa211441(office.11).aspx notes the event I might use to check what page I've rendered for printing and increment the value that I hold in the document's properties and have put that field on my page.
Again, this is just sharing which event I would use and not an offer to write the code.
Bob
I have a document that I want to print a serial number on the cover. I want the serial number to increment every time the document is printed. I couldn't find anyway to do it.
I was able to use the SEQ ExamNumb \r1 \# "201" field and this started me at 201 and SEQ ExamNumb \n \r1 used in the subsiquent copies incremented my number. I'd like to be able to di it in one source file and not to have to make a bunch of copies to get my serial numbers.
Any ideas?

Chowhound
Comic Vine
GameFAQs
GameSpot
Giant Bomb
TechRepublic