Druck Image auf PDF kommt ohne Farbe

[MStoll]

Hi,

versuch's mal so. Das "zwingt" den Drucker, ein Farbdrucker zu sein.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var Rect : TRect;
  Device, Driver, Port: array[0..80] of Char;
  DevMode: THandle;
  pDevmode: PDeviceMode; 
begin 
Printer.PrinterIndex := 1; {ist PDF-Drucker}
     // Start
     Printer.GetPrinter(Device, Driver, Port, DevMode);

     if Devmode <> 0 then
     begin
          pDevMode := GlobalLock(Devmode);
          if pDevmode <> nil then
             try
                with pDevmode^ do
                begin
                     dmColor := DMCOLOR_COLOR;
                     //dmColor := DMCOLOR_MONOCHROME;
                end;
             finally
                GlobalUnlock(Devmode);
             end;
     end;

    // Ende
 
Printer.BeginDoc; 

with Printer.Canvas do begin 
Rect := Bounds(1500, 500, 1000 , 500); 
StretchDraw(Rect,Image.Picture.MetaFile); 
end; 
Printer.EndDoc; 
end;

Gruß
Michael