Inserting the file name & location in the footer

Hi Andrew,

You can show the information as a header or a footer.

View > Header and Footer >

Select the appropriate tab and then choose what you want to show from the General drop-down menu.

Regards,

Darren

Darren

Talk about the bleeding obvious, The information was staring me in the face and I still missed it. Thanks for your help

Regards

Andrew

Andrew,

In your defence, it was a Friday afternoon.

Regards,

Darren

I use the small macro that follows:
Of course you need to replace Lundi to Dimanche
by the explicit name designation in your language
ie Monday to Sunday.



8<==============================================
Option Explicit


Private Sub project_BeforePrint(ByVal pj As MSProject.Project)

Dim myDate As Date
Dim myText As String
Dim myDay As Long


’ Name Value Description
’ pjSunday 1 Sunday.
’ pjMonday 2 Monday.
’ pjTuesday 3 Tuesday.
’ pjWednesday 4 Wednesday.
’ pjThursday 5 Thursday.
’ pjFriday 6 Friday.
’ pjSaturday 7 Saturday.





myDay = Weekday(Now)



Select Case myDay

Case 1
myText = "Dimanche"

Case 2
myText = "Lundi"

Case 3
myText = "Mardi"

Case 4
myText = "Mercredi"

Case 5
myText = "Jeudi"

Case 6
myText = "Vendredi"

Case 7
myText = "Samedi"

Case Else

End Select

myText = myText & " " & CStr(DateFormat(Now, pjDate_mmmm_dd_yyyy))
myText = myText & " @ " & CStr(DateFormat(Now, pjDate_hh_mmAM))

FilePageSetupFooter Alignment:=pjLeft, Text:="&[affichage] pour &[filtre] in " & Chr(10) & ActiveProject.FullName
FilePageSetupFooter Alignment:=pjCenter, Text:="Imp. par:" & Application.UserName & "Créé par: " & ActiveProject.Author & Chr(10) & "___"
FilePageSetupFooter Alignment:=pjRight, Text:=myText & Chr(10) & "Page &[Page] / &[pages]"

End Sub