Printing in Color

[rvhancock]

We have a Ricoh Aficio 4000 Printer (color). Company has set printer to print black and white. To print a document that has multiple tabs in color, I have to preview each worksheet in the workbook, change it from black and white to color. For worksheets with 20+ tabs, it's a hassle. Looking for add-in or macro to change all worksheets to color. Can anyone help?

 

[Trevor G]

Welcome to the Forum,

Why not add a line of code that will activate the printer setup and then just it once then print all the sheets in colour.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> showM()<br> Application.Dialogs(xlDialogPrinterSetup).Show<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>