Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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