Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "Whatever" 'some text
.RightHeader = Date 'today's date
.LeftFooter = Me.FullName 'Full path
.RightFooter = Environ("UserName") 'User's login name
End With
End Sub