QuickReport 0%

[yusnerqui]

Me gustaría ver el código donde generas la consulta, quizas te falte dar un close antes de generarla y al tratar de imprimir, se genera por segunda vez te está dando problemas. es una hipótesis.

[[ElKurgan]]

¿tienes código en los eventos AfterPrint y BeforePrint?

Ten en cuenta que BeforePrint y AfterPrint se ejecutan tanto si se está previsualizando el informe como si se está lanzando directamente a la impresora

Un saludo

[[Espartaco]]

yusnerki muchas gracias por tu interes, aqui es donde genero la connsulta para el listado:

Código Delphi [-]
     listadoadministradoresrec.Qconsulta.Close;
     listadoadministradoresrec.Qconsulta.sql.Clear;
     listadoadministradoresrec.Qconsulta.sql.add('select *');
     listadoadministradoresrec.Qconsulta.sql.add('from ":conlipres:auxadmin.db" d');
     listadoadministradoresrec.Qconsulta.sql.add('ORDER BY NOMBREADM');
     listadoadministradoresrec.Qconsulta.Open;
     S := FormatDateTime('mmmm',Now);
     listadoadministradoresrec.QRLabel2.Caption:='Sevilla, '+IntToStr(Day)+' de '+S+' de '+IntToStr(Year);
     listadoadministradoresrec.QRLabel1.Caption:=ComboBox1.Text;
     listadoadministradoresrec.Preview;
     listadoadministradoresrec.Qconsulta.Close;

como ves, antes de generar la consulta la cierro primero.

[[Espartaco]]

elkurgan gracias tambien por tu interes, comentarte que ni en afterprint ni en beforeprint tengo puesto nada.

solo en onneeddata, que el codigo es el de mas arriba y
en onstarpage cuyo codigo es el siguiente:

Código Delphi [-]
procedure TlistadoadministradoresRec.QuickRepStartPage(
  Sender: TCustomQuickRep);
begin
nomadm:=listadoadministradoresrec.QConsulta['NOMBREADM'];
QrLabel3.Caption:=listadoadministradoresrec.QConsulta['NOMBREADM'];
end;

quedo a la espera de vuestras respuestas y probando cosas. gracias

[Casimiro Noteví]

Empezado por Espartaco

elkurgan gracias tambien por tu interes, comentarte que ni en afterprint ni en beforeprint tengo puesto nada.
solo en onneeddata, que el codigo es el de mas arriba y
en onstarpage cuyo codigo es el siguiente:
quedo a la espera de vuestras respuestas y probando cosas. gracias

Pues ya te has contestado, que lo pongas en el afterprint

[[Espartaco]]

hola casimiro, gracias plor contestar, pero qué es lo que tengo que poner en afterprint, porque en realidad el listado me lo genera bien, lo que pasa es que creo que se queda al final y por eso me pone lo del 0% y cuando le doy a imprimir hace como que imprime pero no envia nada a la impresora.

gracias, estoy desesperado.

[yusnerqui]

Bueno así de una rápida lectura creo que te falta, en el NeedData, reiniciar tu consulta cuando llegue al final para poderla imprimir nuevamente, debes poner algo como

Código Delphi [-]
...  
if moredata then
    QConsulta.Next; 
else
    QConsulta.First;

Espero te sirva.

Saludos