aoc
05-01-2007, 01:23 PM
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
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