Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Places the username in the footer of each sheet printed
Private Sub AppEvent_WorkbookBeforePrint(ByVal Wb As Workbook,Cancel As Boolean)
    Wb.ActiveSheet.PageSetup.LeftFooter = Application.UserName
End Sub