Report printing in black and white

Question

I have a report "Rfactuur" and that report is in color , but it is printing in black and white.

if the user changes the settings of the printer, it prints in color, but then they have to change it each time they want to print.

is there a way in code to change the printer settings automatically for that report ?

Answer 1

Hi

you can use following code to print the report in color. it will also show you a print preview.

Sub demo()
DoCmd.OpenReport "calcreport", acViewDesign, Null, Null, acHidden
Dim oRpt As Report
Set oRpt = Reports(0)
oRpt.UseDefaultPrinter = True
'oRpt.Printer = Application.Printers("printer name")
With oRpt.Printer
    .PaperBin = acPRBNAuto
    .PaperSize = acPRPSLetter
    .Copies = 1
    .PrintQuality = acPRPQMedium
    .ColorMode = acPRCMColor
End With
DoCmd.Close acReport, "calcreport", acSaveYes
DoCmd.OpenReport "calcreport", acViewNormal
DoCmd.OpenReport "calcreport", acViewPreview
Set oRpt = Nothing
End Sub

Regards

Deepak

---

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

Answer 2

thanks, but it is not working.

the color print is only in a logo , picture file on the report ... is that the problem perhaps ?

Answer 3

Hi tekoko10,

I want to confirm with you that in the print preview your report is shown in color or in black and white?

did you try using setting your printer name?

for doing that change the following lines in above mentioned code.

oRpt.UseDefaultPrinter = false

remove the comment from line mentioned below and mention your name of printer at the place of "printer name"

'oRpt.Printer = Application.Printers("printer name")

Regards

Deepak

---

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

Answer 4

Yes , this is working ! Thx