Print 2 worksheets in colour

[stevewilde]

Hi,
I have created a macro to print 2 selected worksheets in colour - see attached. The problem is, is that it always comes out in black and white and "Leftheader" also appears in the top left of the print which I do not want.
Has anyone got any suggestions how to make it print in colour??

Sub Print_Wallcharts()
'
' Print_Wallcharts Macro
' Macro recorded 26/07/2010 by ste133
'
Dim ws As Worksheet
'
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "C3 Wall Chart", "C4 Wall Chart"
With ws.PageSetup
.PaperSize = xlPaperA4
.PrintGridlines = False
.BlackAndWhite = False
End With
ws.PrintOut
End Select
Next ws
MsgBox "All Wallcharts Sent to Printer."
End Sub

[TMS]

What sort of a printer is it? Have you selected a colour printer and selected the colour option in the properties?

Regards

[TMS]

Oh, it prints LeftHeader because you have set up the header with that as the content.

Regards

[stevewilde]

It just seems to default to black and white - printer is a ricoh.
I was hoping the macro would force it to print in colour