Network Path

  • Thread starter Thread starter Karen
  • Start date Start date
K

Karen

Using Excel 2000
I use the following code to place in my footer for the
network path. I want to add the time and date as well.
Should I use the =NOW() function? If so, where do I place
it in the code?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "&""arial""&8 " &
ActiveWorkbook.FullName
End Sub

Thank you in advance
 
Hi karen try this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "&""arial""&8 " &
ActiveWorkbook.FullName & vba.Date
End Sub
 
Hi Karen

You could try.....

ActiveSheet.PageSetup.LeftFooter = "&""arial""&8 " & ActiveWorkbook.FullName
_
& " " & Format(Date, "dddd, dd mmmm yyyy ") & " " & Format(Time, "hh:mm
AM/PM")

--
XL2002
Regards

William
(e-mail address removed)

| Jose - Thank you for your help
| I used your code and it just adds the date & not the time.
| Do you have any other suggestions?
|
| >-----Original Message-----
| >Hi karen try this
| >
| >Private Sub Workbook_BeforePrint(Cancel As Boolean)
| > ActiveSheet.PageSetup.LeftFooter = "&""arial""&8 " &
| >ActiveWorkbook.FullName & vba.Date
| > End Sub
| >
| >
| >
| >| >> Using Excel 2000
| >> I use the following code to place in my footer for the
| >> network path. I want to add the time and date as well.
| >> Should I use the =NOW() function? If so, where do I
| place
| >> it in the code?
| >>
| >> Private Sub Workbook_BeforePrint(Cancel As Boolean)
| >> ActiveSheet.PageSetup.LeftFooter = "&""arial""&8 " &
| >> ActiveWorkbook.FullName
| >> End Sub
| >>
| >> Thank you in advance
| >>
| >>
| >
| >
| >.
| >
 
Back
Top