Printing headers and footers

[llan_man]

Hi

I'm trying to print a sheet with headers and footers using the following code:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

This works fine but when I add the following:

        .CenterHeader = "IN COMMERCIAL CONFIDENCE"
        .LeftFooter = "Printed by : " & Sheets("ADMIN").Range("j8")
        .CenterFooter = "Page " & P & " of  " & N
        .RightFooter = Now
        .PrintOut Copies:=1, Collate:=True

I get a compile error with the ".CenterHeader" highlighted.

Can anyone tell me what I'm doing wrong.

Cheers

Harv

 

[DominicB]

Good afternoon Harv

Something like this should do the trick for you:

With ActiveSheet.PageSetup
.CenterHeader = "IN COMMERCIAL CONFIDENCE"
.LeftFooter = "Printed by : " & Sheets("ADMIN").Range("j8")
.CenterFooter = "Page " & P & " of " & N
.RightFooter = Now
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

HTH

DominicB