Ben

Just for the active sheet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.RightFooter = "&8Printed on : " & _
Format(Now, "dd-mm-yy h-mm-ss")
End With
End Sub


Gord Dibben Excel MVP

On Fri, 22 Apr 2005 10:09:03 -0700, Ben wrote:

Is there any way to use the code or (similiar code) you put in for the
workbook in a manner that it will only post the print time to the footer or
header of the sheet that I am actually printing? This will probably speed it
up.

Thanks for you help!

Ben