#CUTEPDF NOT PRINTING IN COLOR PDF#

#CUTEPDF NOT PRINTING IN COLOR PDF#

Set Application.Printer = Application.Printers(strcurrentPtr) 'Sets printer driver back to original default printer I am using a colour printer which is working fine with PDF files but for a Word file, the photos attached to the file are being printed black and white. ColorMode = acPRCMColor 'Sets color modeĭoCmd.PrintOut 'Prints using current settingsĭoCmd.Close acReport, 'rptInvoice', acSaveYes 'Closes report that was previewed Set Application.Printer = Application.Printers(strTempPrinter) 'Switches default printer to PDF driverĭoCmd.OpenReport 'rptInvoice', acPreview ‘ Open report in Preview mode StrTempPrinter = DLookup('PDFPrinter', 'tblLocalPath', 'id=1') ‘Looks up name of local PDF driver from local User table StrCurrentPtr = 'Gets default printer and assigns to strcurrentptr Got around it by using approach below - example does not include any error checking etc.: We use DocumentProperties() to set the paper size and orientation, but we are not able to change the print in color and print quality settings. If I previewed the report and then choose the CutePDF driver it would print in color but if I printed directly it would only print B&W. We are using CutePDF Custom PDF Writer with programmatic access to automatically generate PDFs in a C Windows-application.

I'm using the CutePDF driver and was having exactly the same problem. RE: Docmd.PrintOut only prints in black and white ck1999 (TechnicalUser) 6 Mar 08 22:09 Is there another way to force PrintOut to use color instead of bw? Maybe it is a driver problem?Īny guidance you can give me is much appreciated! I have tried inserting the following code:Ī = acPRCMColorīut it seems to have no effect. So the PrintOut method itself seems to be the problem. The really strange thing is that you can hit the Print button under File/Print on the MS Access toolbar and it DOES print in color. But now that we've switched to our Kodak one, the PrintOut method only prints in black and white. Set Application.Printer = Application.Printers(strDefaultPrinter)Įnd SubWe used to have a different color printer, and it worked fine. NOTE: CUTE PDF always places at the beginning of the file name, the name of the program in which the file was originally created. If it works, the problem is with the PDF writer software. Print again If printing to a PDF writer, try installing another PDF writer such as CutePDF and try printing again with the new Writer. Select Printer doesn't support transparency 6. Choose a saving location and type a name in the file name box. Go to Transparency printing method>click on the drop down box 5. Set Application.Printer = Application.Printers('KODAK 5500 AiO') Use the drop down arrow to choose CutePDF Writer as your printer, and then click OK.

Cutepdf not printing in color