Foros Club Delphi - ¡¡¡Ayuda con Impresion en QuickReport!!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - ¡¡¡Ayuda con Impresion en QuickReport!!! (https://www.clubdelphi.com/foros/showthread.php?t=28277)

onlytk

14-12-2005 21:03:24

¡¡¡Ayuda con Impresion en QuickReport!!!

Hola amigos, necesito que me ayuden en este problema.

Tengo un Reporte en QuickReport, el cual lo lleno durante el evento OnNeedData, desde el menú hago un Preview del reporte y este me muestra normal con todos mis datos tal cual quiero imprimirlo, pero cuando presiono en el boton de impresion de la ventana de Preview del QuickReport no imprime nada, no se que esta mal. Sin embargo si utilizo el procedimiento Print del QuickReport si me imprime mi reporte, que puede estar mal??? por favor ayudenme gracias de antemano. Saludos.

Ahhhh una preguntita por separado, tengo el FreeReport en su version 2.33, existe algun evento como el OnNeedData del QuickReport? para trabajar con reportes que no necesiten de una base de datos???.

Gracias.

AGAG4

14-12-2005 21:34:34

Checa esto....

Cita:

Empezado por onlytk

Lo más seguro es que te lo imprime pero en otra impresora es decir en la impresora predeterminada, en el QReport tiene 2 botones el primero es para seleccionar la impresora aqui revisa si esta seleccionada la impresora correcta y en el segundo es para imprimir sobre la impresora seleccionada y en cuando a la segunda pregunta te recomiendo abrir otro hilo.

Saludos....

onlytk

14-12-2005 22:03:15

Cita:

Lo más seguro es que te lo imprime pero en otra impresora es decir en la impresora predeterminada...

Si probe seleccionando desde el boton de configuracion de impresora, seleccionando en la impresora que quiero imprimir pero nada, no imprime, tengo el pdffactory que simula una impresora y guarda en formato pdf, lo seleccione desde la configuracion de impresora y nada, no quiere imprimir el reporte, aparecere en un segundo la ventanita de progreso al presionar sobre el botoncito de imprimir, y no imprime nada ni genera el PDF, ..... mientras si cambio la linea:

Código Delphi [-]formulario.reporte.preview;

por

Código Delphi [-]formulario.reporte.print;

si funciona, tambien si guardo el reporte desde el preview, y lo vuelvo a abrir, ahi tambien imprime, no se que esta mal, tengo el QuickReport del Delphi 7, o tiene algun bug???.

Salu2.

AGAG4

14-12-2005 23:00:52

Checa esto....

Te recomiendo que vuelvas hacer un pequeño reporte tomando datos de X tabla y hagas las pruebas desde CERO, lo más seguro que algo te debe de interferir dentro del código, por ejemplo en el BeforePrint ó AfterPrint.

Yo he usado el QReport en D7 sin problemas en el Preview.

Saludos....

Lepe	14-12-2005 23:24:34

http://www.clubdelphi.com/foros/show...highlight=temp

onlytk

15-12-2005 01:37:09

Código Delphi [-]procedure TfrmReportsDist.qrReporteNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
 if IndexItem < strFromTo.Count then
    begin
        qrLabelPuntos.Caption := strFromTo.Strings[IndexItem];
        qrLabelDistancia.Caption := FloatToStr(extDistances[IndexItem]);
        Inc(IndexItem);
        MoreData := True;
    end
    else
    begin
     IndexItem := 0;    // Esta linea no existia y por eso no imprimia
     MoreData := False;
    end;
end;

por la linea IndexItem := 0; Al mostrar el Preview me mostraba normalmente y al querer imprimir como IndexItem se quedaba en un numero alto entonces se pasaba el evento indicando que no se necesitaban mas datos a mostrar.

Disculpen por quitarles el tiempo. Salu2.

gatoar77

20-12-2005 22:59:54

revisa el tipo de papel del reporte y ponlo igual en la impresora, ej si el tipo de papel del reporte es custom en la impresora debera ser custom :p

Faust

16-08-2018 20:34:49

Cita:

Empezado por onlytk (Mensaje 121374)

Gracias a todos por responder, ... luego de checkear y analizar el codigo di con el error que estaba en el evento OnNeedData del quickReport, era alli donde ponia los datos de mi quickReport, a ser mostrados en el preview e imprimidos y me olvide de poner el Indice que utilizaba para poner los datos a 0.

Código Delphi [-] procedure TfrmReportsDist.qrReporteNeedData(Sender: TObject; var MoreData: Boolean); begin if IndexItem < strFromTo.Count then begin qrLabelPuntos.Caption := strFromTo.Strings[IndexItem]; qrLabelDistancia.Caption := FloatToStr(extDistances[IndexItem]); Inc(IndexItem); MoreData := True; end else begin IndexItem := 0; // Esta linea no existia y por eso no imprimia MoreData := False; end; end;

por la linea IndexItem := 0; Al mostrar el Preview me mostraba normalmente y al querer imprimir como IndexItem se quedaba en un numero alto entonces se pasaba el evento indicando que no se necesitaban mas datos a mostrar.

Disculpen por quitarles el tiempo. Salu2.

Hace tiempo que no pasaba por aquí... en este comentario encontré la solución a el mismo problema que el compañero onlytk... No me imprimía nada pero con solo reiniciar el índice que controla el bucle de la impresión de la banda en el OnNeedData se solucionó. Saludos a todos

Casimiro Notevi

16-08-2018 21:27:09

Cita:

Empezado por Faust (Mensaje 528079)

13 años después, y todavía es válido :)

La franja horaria es GMT +2. Ahora son las 18:29:12.