Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Problema con QuickReport (https://www.clubdelphi.com/foros/showthread.php?t=48800)

silver07 04-10-2007 13:19:43

Problema con QuickReport
 
Hola a todos, tengo un sistema desarrollado en delphi 7 y mis reportes en QuickReport, el problema es que cuando envio a imprimir no me funciona, no se imprime nada, pero la información esta ahí, es como si no encontrara la impresora o no la reconociera pero la impresora esta en excelente estado y se imprimen otros documentos de internet, word, excel, etc. pero el del QuickReport nada:o.
Alguien sabe por qué ocurre esto, por qué no se imprimen mis reportes?

Muchas gracias de antemano...

marcoszorrilla 04-10-2007 22:02:40

Tendrías que mostrar con que código estás intentando imprimir prueba con la vista previa a ver si te funciona.

Código Delphi [-]
Quickrep1.PreviewModal;


Un Saludo.

Caral 04-10-2007 22:09:23

Hola
Prueba que el dataset del reporte este conectado
Saludos

silver07 05-10-2007 05:35:00

Asunto
 
Este es el código que utilizo para enviar a la impresora...

Código Delphi [-]
procedure TFrmConsReportes.Button5Click(Sender: TObject);
begin
dmodulo.AQactividades.Close;
dmodulo.AQactividades.Sql.Clear;
dmodulo.AQactividades.SQL.Add('SELECT * FROM ACTIVIDADES WHERE EMPRESA LIKE'+ #39 + Combobox1.Text + #39);
dmodulo.AQactividades.Open;
 if dmodulo.AQactividades.EOF then
begin
   showmessage('Registro no existe');
end else
QRepActividades.print;
end;

marcoszorrilla 05-10-2007 07:07:55

Cita:

Código Delphi [-]
procedure TFrmConsReportes.Button5Click(Sender: TObject); begin dmodulo.AQactividades.Close;
dmodulo.AQactividades.Sql.Clear;
dmodulo.AQactividades.SQL.Add('SELECT * FROM ACTIVIDADES WHERE EMPRESA LIKE'+ #39 + Combobox1.Text + #39);
dmodulo.AQactividades.Open; if dmodulo.AQactividades.EOF then
begin showmessage('Registro no existe');
end
else QRepActividades.PreviewModal;
end;

Por una parte haz este cambio, para comprobar que hay datos en la vista previa y así descartar o no que la impresora por algún motivo no imprima.

Por otra ten en cuenta lo que te ha dicho Caral, es decir que tienes un Dataset conectado con la consulta y además enlazado al objeto QuickRep.

Para tener la certeza de que la consulta está funcionando símplemente arrastra una rejilla al formulario y conéctala con el conjunto de datos así puedes comprobar de manera visual que es lo que está haciendo o no la consulta.

Un Saludo.

silver07 08-10-2007 18:00:42

Asunto
 
Asunto resuelto, muchas gracias por la ayuda amigos... en realidad el problema estaba en la impresora:D


La franja horaria es GMT +2. Ahora son las 00:05:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi