Inserting the file name & location in the footer

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

Andrew,



In your defence, it was a Friday afternoon.



Regards,



Darren

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