using VBA to print Header & footer

[nickbest_l_10]

Hi,
What VBA code should I use in a worksheet so it will print a header &
Footer?

 

[Don Guillett]

Hi,
What VBA code should I use in a worksheet so it will print a header &
Footer?

Have you tried doing it manually while recording a macro...??

 

[nickbest_l_10]

Have you tried doing it manually while recording a macro...??

I recorded a macro but it did not show it when print preview or when
printing.

To explane the idea more:
If I go to the page setup menu, header & Footer and add the custom
header i want, it stays there and can be seen when printing it.

Can these steps be done using VBA code?

 

[dave y.]

I recorded a macro but it did not show it when print preview or when
printing.

To explane the idea more:
If I go to the page setup menu, header & Footer and add the custom
header i want, it stays there and can be seen when printing it.

Can these steps be done using VBA code?

The following should do the trick:

Sub Add_Header_Footer()
With ActiveSheet.PageSetup
.LeftHeader = "My Left Header"
.CenterHeader = "My Center Header"
.RightHeader = "My Right Header"
.LeftFooter = "My Left Header"
.CenterFooter = "My Center Footer"
.RightFooter = "My Right Footer"
End With
End Sub

dave y.

 

[nickbest_l_10]

The following should do the trick:

    Sub Add_Header_Footer()
    With ActiveSheet.PageSetup
        .LeftHeader = "My Left Header"
        .CenterHeader = "My Center Header"
        .RightHeader = "My Right Header"
        .LeftFooter = "My Left Header"
        .CenterFooter = "My Center Footer"
        .RightFooter = "My Right Footer"
    End With
    End Sub

dave y.- Hide quoted text -

- Show quoted text -

Thanks Dave,
I am almost there.
My left header is a picture (\stone\L_Logo.tif) and is in the same
folder as the Excel file.
I did not succeed to have the picture shown!
How can it be done? What should I put after the equal sign in
the .LeftHeader line?