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"
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.