Inserting the file name & location in the footer
Forum Sponsor
Top Posters
Julian Pegg
1 posts
Peter Nagy
2 posts
Raymund de Laza
17 posts
Syed_Asad
0 posts
Tony Greyvenstein
0 posts
Ahmed Al-Jubouri
13 posts
Umar Alvi
3 posts
Sibusiso Mahlalela
0 posts
Michael Samanyayi
3 posts
Simon Gumede
0 posts
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
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
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