Question : How to force report print in COLOR in VB

How do I get my reports to print in color?  Currently some do and some don't:

This report prints in COLOR:
DoCmd.OpenReport "rpQtr-Performance100630YTD", acViewPreview, , "HHID = " & ClientNowPrinting
DoCmd.PrintOut acPages, 2, Totalpages - 1, acHigh


This report prints in  B/W:
DoCmd.OpenReport "rpQtr-Transactions100630QTR", acViewPreview, , "HHID = " & ClientNowPrinting
DoCmd.PrintOut acPages, 2, Totalpages - 1, acHigh

If I open "rpQtr-Transactions100630QTR" from the Navigation Pane, use the Microsoft Office button menu to select Print/OK, (knowing color has been selected), it prints in B/W anyway.

However if I open the same report from the Navigation Pane, use the Microsoft Office button menu to select Print/Properties/Quality (SEEING color has been selected) OK/OK, it then prints in COLOR.

Subsequent attempts also print in COLOR.

If I then CLOSE the report and re-open it (and do not go thru Print/Properties/Quality, it reverts to B/W.

How do I ensure it prints COLOR EVERY TIME, without having to open the report from the Navigation Pane and Microsoft Office button, and go thru the menu items?

Answer : How to force report print in COLOR in VB

Try this:

Open the report in design View
Make a small change to the report
Save the report
Office Button-->Print-->Properties
Make sure it is set for Color
Print the report
Make another small change to the report
Save the report again
Close the report
Run the compact/Repair Utility
Test the report again.

JeffCoachman