Farbproblem bei PDF-Druckern (mögl. Lösung)

[MStoll]

Hi@all,

Wenn ihr auch schon mal das Problem hattet, dass eure Delphi-App beim Druck über PDF-Druckertreiber auf manchen Systemen nur Schwarz-Weiß gedruckt hat, solltet ihr mal folgenden Code probieren (den hab ich durch Probieren rausbekommen). Also mir hat er geholfen. Ich glaube, Luckie hatte das Problem auch schonmal angesprochen.

Delphi-Quellcode:

var
  Device, Driver, Port: array[0..80] of Char;
  DevMode: THandle;
  pDevmode: PDeviceMode;
begin
     Printer.GetPrinter(Device, Driver, Port, DevMode);

     if Devmode <> 0 then
     begin
          pDevMode := GlobalLock(Devmode);
          if pDevmode <> nil then
             try
                with pDevmode^ do
                begin
                     // Bringt Farbe in die PDFs auf ALLEN Rechnern
                     dmColor := DMCOLOR_COLOR;;
                end;
             finally
                GlobalUnlock(Devmode);
             end;
     end;

Gruß
Michael

[Edit]Habe dmColor := DIB_RGB_COLORS durch dmColor := DMCOLOR_COLOR ersetzt. So sollte es eigentlich heißen.[/Edit]