how to Use Before_Print macro to add a multiple line header

**today2014** · 08-27-2014, 04:32 PM

Hi,

I am trying to create a macro that add a multiple line header to all the pages of a worksheet before printing.
I have written this code but it's not working.Please help

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.DifferentFirstPageHeaderFooter = True
.FirstPage.LeftHeader = "&""Times New Roman,Bold""&16 TEST" & Chr(10)_
& "Times New Roman,Bold""&16TEST2" & Chr(10) _
& "Times New Roman,Bold""&16TEST3"
.LeftHeader = "&""Times New Roman,Bold""&12TEST4"
End With
End Sub

**natefarm** · 08-28-2014, 04:04 PM

Welcome to the Forum. For future reference, please enclose code in code tags. Thanks.

When I ran your code, I got an error on the following portion:

Please Login or Register  to view this content.

When I deleted that out, it ran and put TEST4 at the top of the 2nd page. I would suggest starting over with recording a new macro that sets up your page like you want it, and then making the adjustments.