none
Report printing in black and white RRS feed

  • 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 ?

    Thursday, April 21, 2016 6:28 AM

Answers

  • 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.

    • Marked as answer by tekoko10 Wednesday, April 27, 2016 7:52 AM
    Monday, April 25, 2016 8:00 AM
    Moderator

All replies

  • 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.

    Friday, April 22, 2016 4:04 AM
    Moderator
  • thanks, but it is not working.

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

    Friday, April 22, 2016 11:54 AM
  • 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.

    • Marked as answer by tekoko10 Wednesday, April 27, 2016 7:52 AM
    Monday, April 25, 2016 8:00 AM
    Moderator
  • Yes , this is working ! Thx
    Wednesday, April 27, 2016 7:53 AM