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




© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrevNext