Best use of histograms on a B&W printer

[Richard in Redditch]

I am using a black and white laser printer, and want to make the three values in the histogram have more contrast. The code I am using is as follows:

ActiveChart.PageSetup.BlackandWhite = True
.
.
.
ActiveChart.FullSeriesCollection(1).Select
With Selecton.FormatFill
.Patterned msoPatternZigZag
End With
.
[two more patterns]
.

I have the columns outlined in black, with the infill in three similar greys. I would like to have one dataset completely in black, another in grey (as now) and the third in white (the latter two with the black outline, as now).
Regrettably I have not been able to find the correct syntax in any of my xl books. Can anyone help me with this, please?

Thank you.