This can be done by recording your print macro, and then a line to the
macro the increments the value of a particular cell by 1. This
provides the counter mechanism you're looking for.

The line to add to your macro is
Range("sheet1!a1").Value = Range("sheet1!a1").Value + 1

Where your counter is located on Sheet1 cell A1. You can change this
to match your sprdsht, of course.