mostrar imagen pero no imprimirla

[yossi]

hola, tengo un qreport en el que tengo 2 imagenes y 2 qrexpr que quiero que se muestre pero que no se impriman, al qreport lo llamo con el .preview; y quiero que cuando se le de a imprimir esas imagenes y esos qrexpr se pongan invisibles

[[Caral]]

Hola
Tal vez:

Código Delphi [-]
procedure TQreport1.QuickRepAfterPrint(Sender: TObject);
begin
   QRImage1.Enabled:= False;
end;

Saludos

[yossi]

bueno ese codigo lo pense pero no funciono buscando y buscando encontre uno que lo hacia pero en los eventos de las bandas before y after y quedo bien.

tengo otro problema que no tiene que ver con este pero si me puedes ayudar seria muy amable de tu parte

cuando le doy click a la impresora en el preview de qreport imprime bien pero se quita la hoja del preview y tengo que imprimir varias copias de esa pagina y por separado una primero y luego otra

que pasa? porque se quita?

[yossi]

hola necesito ayuda urgente con este tema tengo que entregar el programa esta semana

este es el codigo que utilizo

procedure Treporte.QRBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
vecesimpreso:=vecesimpreso+1;
end;

procedure Treporte.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if VecesImpreso > 0 then
begin
qrImage1.Picture := Nil;
qrImage2.Picture := Nil;
end;
end;

funciona bien la primera vez, lo muestra pero no lo imprime pero la segunda no muestra las imagenes

auxilio