BeforePrint Event

Include the folder path and workbook name in a header

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
Dim objwsh As Worksheet 
   For Each objwsh In ThisWorkbook.Sheets 
      objwsh.PageSetup.LeftHeader = ThisWorkbook.FullName 
   Next objwsh 
End Sub