Edit the following for your preferences.
This code goes in "ThisWorkbook" not in a regular module.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' This sub includes all parts of FileNameInFooter
' but it puts the same information on all Sheets in the Workbook.
'
Dim sht As Worksheet
Dim sDate As String
For Each sht In ThisWorkbook.Sheets
sDate = Format((Now), "ddd d mmm yyyy hh:mm ")
sht.PageSetup.LeftFooter = "&8" & "" & ActiveWorkbook.FullName _
& "|" & "&A" & " " & sDate & " " & "Your Name"
Next sht
End Sub
The above also includes formatted Date & time and you can replace "Your Name" with your actual name. This certainly would not be useful if more than one person creates the information with this ss.
Hope some part of the above is useful.