[Galahad]

al final lo he solucionado .


Basicamente con este código:

Código Delphi [-]


     Printer.GetPrinter (Device,Driver,Port,hDevMode);
     if hDevMode <> 0 then
     begin
        DevMode := GlobalLock (hDevMode);
        QR.PrinterSettings.ColorOption :=  DevMode^.dmColor;
        GlobalUnlock (hDevMode);
     end;

Cogemos del driver de la impresora la información y la volcamos al report.


Por si a alguien le pasa, saludos...