Increment Date Based On Number Of Pages Printed - Excel

[carlleese24]

I have a full-page form that we use in paper form. It is date
dependent and instead of having to manually enter in the date in a cell
at the top of the form for each day, then click print, I would love to
get it to just do it for me.

Is there a way to make it so that if I print 30 pages it will give me a
different date for each page?

Thanks in advance!

 

[CountTepes]

Use the workbookbeforeprint event to put the current date into the required cell

Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, _
Cancel As Boolean)

cells(1,1)=now()

end sub