Hola Amigos, a ver como os explico esto.
Utilizo Delphi 5 y QuickReport 3.0. Necesito imprimir un listado que tiene que generar una pagina cuando cambia el valor de un campo, y en cada pagina tengo que poner unos valores relacionados con este. Hasta aqui ningun problema, los tengo almacenados en una tabla y esta la ordeno con Query para coger los datos desde este. La unica forma que he encontrado es colocando en una banda detail unos QrLabel que voy rellenando con los valores de los campos correspondientes. Esto lo hago en el evento onneeddata del QuickReport.
Bien, pues todo lo hace correctamente, lo que ocurre es que si le doy a imprimir en el Preview del QR no me imprime nada. He probado a usar PreviewModal pero da igual. Sin embargo si en vez de utilizar el Preview lo imprimo directamente, lo hace perfecto.
He observado, que cuando me presenta el Preview, en la parte de abajo a la izquierda, donde muestra las paginas del listado, me muestra 0%, que supongo que es el proceso del listado, en cambio en los que si me funciona aparece 97% u otra cantidad.
Me imagino que es porque hago algo mal en el evento onneeddata pero no se como solucionarlo.
Este es el codigo del evento:
Código Delphi
[-]
procedure Tlistadoadministradores.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin
moredata:= not QConsulta.Eof;
qrlabel4.Caption:=IntToStr(QConsulta['NCONTRATO']);
qrlabel6.Caption:=QConsulta['TIPOCON'];
qrlabel7.Caption:=QConsulta['DIRECCION'];
if QConsulta['NOMBREADM']<>nomadm then
begin
nomadm:=QConsulta['NOMBREADM'];
listadoadministradores.NewPage;
end;
if moredata then
QConsulta.Next;
end;
En otro listado en el que relleno yo los datos me ocurre exactamente igual.
Por favor os agradeceria mucho vuestra ayuda, estoy desesperado porque no doy con la tecla.
Muchas Gracias.