I hope I understood your question (but I am not sure).
Supposing that you store this sequential number in sheet1, cell A1, you
can use following code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
adjust the code to your needs.
It will add 1 to value of cell A1 on sheet1 and application will
continue showing the print dialog. What should happen if user cancels