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