"Magster" <(E-Mail Removed)> wrote in message
news:2CBBF2D7-CE6A-4C1B-8B7E-(E-Mail Removed)...
> Hi,
>
> I discovered something interesting that I hope you can help me to
> easily fix.
>
> My default printer doesn't print color - strictly black ink only. I
> designed reports in Access 2007 with the Default Printer selected in
> Page
> Setup.
>
> When I needed to see a color version of a report, I selected a color
> printer
> from my network - no problems.
>
> I installed a copy of my app on another user's PC who happens to have
> a
> default color printer and when they tried to print the report using
> their
> default printer - it printed without color! If they selected their
> printer
> off of the network list, it printed color.
>
> I changed my default printer to a color printer from the network, and
> when I
> tried to print the report on my new "default" printer, it too printed
> in
> black.
>
> Then I selected a color printer for my default printer in Windows,
> created a
> quick report using the default setting, and printed via the default
> and it
> printed in color. Now I know what happened, but...
>
> Other than doing a lot of cutting and pasting and recreating my
> reports with
> a color default printer, is there any other way to do this? Either
> VBA in a
> one time fix and saving or some setting in the report that I am
> unaware of.
>
> I don't imagine there are many folks defaulting to a black ink printer
> anymore.
>
> Thanks in advance to anyone who responds.
>
Possibly the color printers you are using are set to monochrome by
default, but when you create a default report it sets the color setting
to color.
Try adding this line to your code:
rpt.Printer.ColorMode = acPRCMColor ' 2
where "rpt" is your report object.
These are the two color constants:
acPRCMColor (=2) The printer should print in color.
acPRCMMonochrome (=1) The printer should print in monochrome.
--
Mike
-----------------------------------------------------------------------
Michael J. Strickland
Quality Services
(E-Mail Removed)
703-560-7380
-----------------------------------------------------------------------