Carmelo Cash
28-05-2008, 02:54:12
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;
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;