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