Impresion en delphi

[[fjcg02]]

Con el ejemplo de QuickReport te viene un caso específico de NeedData.
El ejemplo está en \directorio de dephi\Demos\Quickrpt\Q3

El archivo es concretamente needdata.pas

Revisalo y nos cuentas.

Saludos

[luketas]

...estoy usando el evento onneeddata como recomendaron solo que cuando previsualizo la impresion los registros no muestran nada, y si hago un paso a paso del programa, al evento needdata nunca ingresa! de que me estoy olvidando?? muchas gracias por su ayuda!

[[eduarcol]]

te recomendaria que usaras tablas de memorias, hacen la vida mas sencilla, en lugar de vaciarlo al detail lo vacias a la tabla

[luketas]

Aca les muestro los procedimientos y su codigo... no entiendo porque el programa no ingresa al need data, que estoy haciendo mal? mire un par de ejemplos y los resuelven de la manera q lo hago, pero al no ingresar al procedim, ovbiamente los campos se imprimen vacios, me pueden dar algun otro ejemplo?

procedure TRptAsistHsSuplementarias.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin
QrlNombre.Caption := FrmVentImpAsist.arrayExtension[i].ApeNombre;
QrlNroLeg.Caption := IntToStr(FrmVentImpAsist.arrayExtension[i].NroLeg);
QrlExtJor.Caption := FrmVentImpAsist.arrayExtension[i].hsExtJor;
QrlNombre2.Caption := FrmVentImpAsist.arrayExtension[i].ApeNombre;
QrlNroLeg2.Caption := IntToStr(FrmVentImpAsist.arrayExtension[i].NroLeg);
Qrl50.Caption := FrmVentImpAsist.arrayExtension[i].hs50;
Qrl100.Caption := FrmVentImpAsist.arrayExtension[i].hs100;
MoreData:= i <= FrmVentImpAsist.cantRegArray-1;
i:= i+1;
end;
procedure TRptAsistHsSuplementarias.QuickRepStartPage(
Sender: TCustomQuickRep);
begin
i:=0;
end;

[hmrvivas]

como tu reporte es manual, debes activar primero que todo el evento BeforePrint, y en el inicias tu variable i y ademas estableces la variable printReport = true;

Luego en tu reporte colocas una banda Detail.
En la banda Detail colocas tus QRLabel.

El evento OnNeedData lo dejas como estas, teniendo en cuenta que el moredata debe actualizarse en cada registro que ingresas a la banda detail.

Espero te sirva esto, yo lo hago y me funciona.

[luketas]

Bueno! ufff despues de tanto luchar con los reportes llegue a la conclusion de que lo que yo queria hacer no se puede! osea imprimir en una misma hoja registros de un data set con registros de un arreglo que trabajo en forma paralela. Probe de mil maneras y el unico resultado posible fue crear otro reporte solo para los datos del arreglo, eso si con la gran ayuda que me dieron los que participaron en el tema! desde ya muchas gracias a todos! y si tienen algo q aclarar al respecto bienbenido sea!! saludos!!