change field number automatically when printing

[Guest]

We have a form in Excel, it is only one page, but we need a number on the right top corner of the sheet that changes automatically evey time we print the form

Is there any way to do this
Thank you

 

[Peo Sjoblom]

You could use a Workbook BeforePrint macro that do that, assume the number
is in cell G1

Range("G1").Value = Range("G1").Value + 1

like this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("G1").Value = Range("G1").Value + 1
End Sub

--

Regards,

Peo Sjoblom

We have a form in Excel, it is only one page, but we need a number on the

right top corner of the sheet that changes automatically evey time we print
the form.

 

[Guest]

Thank you so much for the information. You are my hero!!!!