Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   quickreport e impresión en blanco y negro (https://www.clubdelphi.com/foros/showthread.php?t=93228)

Galahad 21-06-2018 17:43:33

quickreport e impresión en blanco y negro
 
Hola, buenos días.
Tengo un problema con el quickreport, tengo una impresora de color configurada por defecto para que imprima en blanco y negro (modo escala de grises).
Cuando imprimo directamente, ignora dicha configuración e imprime siempre en color (en quickreport, tengo otros reports en fastreport y con esos no tengo problemas).
En cambio, si previsualizo dicho informe por pantalla, y entro en la pantalla de configuración impresión e imprimo a continuación, lo imprime bien..
Estoy intentando asignar los parametros de color del driver de la impresora antes de imprimir el report , pero no funciona.
Lo hago así:
Código Delphi [-]
QR.PrinterSettings.PrinterIndex := impresora1;   
QR.PrinterSettings.Copies        := numerocopias;   
QR.PrinterSettings.OutputBin   :=  bandeja;    // esta es la que no funciona     
QR.PrinterSettings.ColorOption := 2;
¿ alguién ha pasado por esto antes ?
Saludos...

Galahad 22-06-2018 12:49:42

color en quickreport
 
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...


La franja horaria es GMT +2. Ahora son las 20:03:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi