[Carmelo Cash]

Hola foro:
Estoy utilizando delphi 7 y para reportes QuickReport.

Tengo que imprimir unos 500 formularios con distintos textos, los datos los tengo en una tabla, entoces hago una consulta y mando a imprimir uno por uno.

El problema es que interpreta 500 documentos y entonces entre hoja y hoja, la impresora hace una pausa, y tarda mucho más la pausa que la impresión del formulario.

Que estoy haciendo mal? a continuación les muestro el código que utilizo para imprimir.

Desde ya muchas grácias por su atención.


procedure TF_Imprimir.Button2Click(Sender: TObject);
begin
with Q_Observaciones do
begin
close;
Open;
while not eof do
begin
Impresion;
next;
end;
end;
end;

procedure TF_Imprimir.Impresion;
begin
R_Fact_EP_R := TR_Fact_EP_R.Create(Application);
with R_Fact_EP_R do
try

QRRichText2.Lines.Clear;
QRRichText2.lines.Add(Q_Observaciones.FieldByName('OBS1').AsString);

Print;

finally
free;
end;
end;