Format to Headers in excel using VBA

[bto.zapata]

Hi everyone!

I'm having some toruble givin' Format to a header. This is a background:
Cell "A2" has the values of mi header's first line
Cell "A3" has the values of mi header's Second line

I intend to format values in A2 as White/BOLD/Arial/24 font size
and values in A3 as White/BOLD/Arial/8 font size

this is as long as i have gone...

Public Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wks As Worksheet
   For Each wks In ActiveWorkbook.Worksheets
            wks.Rows("1:3").EntireRow.Hidden = True
            wks.PageSetup.LeftHeader = "" & Chr(10) & ActiveSheet.Cells(2, 1) &           Chr(10) & ActiveSheet.Cells(3, 1)
   Next wks
End Sub

But i don't know the synthaxis... any tips?

 

[JLGWhiz]

Hi everyone!

I'm having some toruble givin' Format to a header. This is a background:
Cell "A2" has the values of mi header's first line
Cell "A3" has the values of mi header's Second line

I intend to format values in A2 as White/BOLD/Arial/24 font size
and values in A3 as White/BOLD/Arial/8 font size

this is as long as i have gone...

Public Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wks As Worksheet
   For Each wks In ActiveWorkbook.Worksheets
            wks.Rows("1:3").EntireRow.Hidden = True
            wks.PageSetup.LeftHeader = "" & Chr(10) & ActiveSheet.Cells(2, 1) &           Chr(10) & ActiveSheet.Cells(3, 1)
   Next wks
End Sub

But i don't know the synthaxis... any tips?

Change This:

Code:
wks.PageSetup.LeftHeader = "" & Chr(10) & ActiveSheet.Cells(2, 1) & Chr(10) & ActiveSheet.Cells
Code:

To this:

Code:
wks.PageSetup.LeftHeader = "" & Chr(10) & "&B" & ActiveSheet.Cells(2, 1) & Chr(10) & "&B" & ActiveSheet.Cells
Code:

 

[bto.zapata]

Change This:

Code:
wks.PageSetup.LeftHeader = "" & Chr(10) & ActiveSheet.Cells(2, 1) & Chr(10) & ActiveSheet.Cells
Code:

To this:

Code:
wks.PageSetup.LeftHeader = "" & Chr(10) & "&B" & ActiveSheet.Cells(2, 1) & Chr(10) & "&B" & ActiveSheet.Cells
Code:

ok... so if my understanding is right, i need to open and close the format i wanna give using quotaions (i.e: "&B"). thanks i'll continue on reviewing post so that i may change the font, the color, the letter size. thanks!

 

[bto.zapata]

i have gone this far now:

Public Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Rows("1:3").EntireRow.Hidden = True
wks.PageSetup.LeftHeader = _
Chr(10) & _
"&""Arial""&24" & ActiveSheet.Cells(2, 1) & Chr(10) & _
"&""Tahoma""&10" & ActiveSheet.Cells(3, 1)
Next wks
End Sub

that makes the following:
First line =""
Second line = Value in "A2" in ARIAL 24
Third line = Value in "A3" in Tahoma 10

the only thing i need is to change the Font color to white... any ideas