.BlackAndWhite = False does not equal Color

[coreytroy]

I am having an issue with

 .BlackAndWhite = False

Our company has Sharp MX-3110N PCL6 network printers, and IT have set the Black & White option as default.

To enable a color printed sheet i placed the above code in the page set up.

However, i have realised that B&W=False does not mean Color.

I have found that B&W=True actually prints White fonts as Black, yet color is still not printed. Not sure if this an Excel glitch or that is the idea.


So...

I have also noticed that if the printer was last selected and the use manually removed the tick of B&W, then the next printed sheet would be color. But if the tick was not removed on B&W then the code will not modify the printer to color.
Apart from using a dialog for the user to select the printer, and use the options to remove the tick on B&W, is there another option to print in color?

Alternately, is the a way to customise the printer dialog to have a caption to inform the user to change the B&W tick for a color print ?

[AlphaFrog]

There are two different print in B&W settings. There is an Excel print in B&W setting and there is a setting within your Sharp printer driver as well. If the Sharp printer driver is set for color, Excel can send it a Color or B&W document to print. If the Sharp printer driver is set to B&W, then all documents will print in B&W regardless of the setting in Excel.

You can change in VBA the Excel B&W setting as you have done. I don't know of a method to change the the Sharp printer driver setting from VBA.

Something like this will prompt the user to manually change the printer driver setting to Color. There may be a other clever ways to do this.

MsgBox "On the following Printer dialog, " & vbLf & _
       "select ""Properties"" and select the ""Color"" option. ", _
       vbInformation, "Set Printer Color Option"
Application.Dialogs(xlDialogPrint).Show