print colour

[aoc]

hi,

I want to print in black colour, what is the code ?

Sub printer()
[M1] = Date
ActiveSheet.PageSetup.PrintQuality = Array(-1, -1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1


End Sub

[aoc]

hi,

a cell background is yellow, but when I print the sheet , it must be seen white

[mdmackillop]

File/Page Setup/Sheet/ Check Black and White

[aoc]

I print from a command button not from the menu

[mdmackillop]

So record a macro changing the settings.