I did quite a bit of searching around for a solution on this and have not hit on one that seems to satisfy.
For some reason, Excel seems to ignore the Printer Properties if the individual worksheet is NOT set to print in B&W. If one of my sheets has the Page Setup/Sheet/Print black and white box unchecked, then it will print the font colors, shading, etc. on the worksheet even though the Printer Properties are setup for B&W.
From what I've read, VBA cannot affect the Printer Properties from within Excel. But, if I can figure out how to set the Page Setup to B&W for the selected sheets, that seems to force it B&W at Print time.
Here is the snippet of code where the sheets are selected and prepped for printing:
Sheets(Array("Main Page", "Adjustments", "Value Table")).Select
If Range("Preview") Then
ActiveWindow.SelectedSheets.PrintPreview
Else
With ActiveWindow.SelectedSheets
.PrintOut Copies:=1, Collate:=True
End With
End If
Is there a way that I can modify the With section to affect the Page Setup or does this need to happen prior to this and how?
Thank you,
Delain
Bookmarks