Problema Imprimir Ticket con QuickReport
 

Ya he buscado por mas de 1,000 hilos en toda la mañana sobre la continuidad de los Tickets de impresion con QuickReport, sucede lo siguiente tengo reporte en quickReport para imprimir los tickets de factura, tiene un tamaño de 75mm x 150mm, pero yo quiero que el reporte sea continua y que no lo tome como una sola hoja, si imprimo un ticket con muchos articulos me imprime en varias hojas, o sea, deja un espacio en blanco y vuelve empieza de nuevo, hay alguna forma de configurarlo para que sea continua?. Espero que me hayan podido entender.

Saludos.

Se me Olvidó decir que tengo una impresora Epson TM-U220D. :D

Saludos.

Hola
No se exactamente a que te refieres con continuo?
Yo tengo un reporte en el cual imprimo en mi caso recibos con una impresora de tickest, osea de esas pequeñas y no tengo problemas.
Fijate en la configuracion del la impresora, hay una parte en donde sale el tamaño de la hoja, incluso puedes crear uno propio a la medida.
Saludos

Yo te recomiendo que para estos menesteres uses el canvas de impresión, QReport automáticamente te envía el salto de página y no tienes control de la impresión.

Bueno, solo es una sugerencia.

Salud OS

porq no imprimes al canvas?? en caso de que esta solucion no te guste puedes hacer un trampa, prueba esta configuracion

Bandas,

Title
Detail
Summary

lleva los margenes a Cero (0), con esto no te va a dar continuidad pero da la impresion que si lo hiciera. No lo he probado pero en teoria debe funcionar.

Gracias Egostar, si supieras nunca en mi vida he trabajado con canvas y eso que es la primera vez que hago impresiones de este tipo (la de Tickets). Existe algun tutotial o ejemplo?. te lo agradeceria.

Gracias eduarcol, hare la prueba a ver.

Saludos.

Hola
En mi caso lo tengo todo en el detailBand, con esto se puede controlar el tamaño o que sea continuo si se quiere ya que el detail cambiara segun la informacion, como en un reporte cualquiera.
Al usar un title o un sumari cortara la impresion, a mi parecer es mas complicado, salvo que uses el cambas, como te indicaron, pero te toparas con el problema de como lo cuadras al tamaño, creo.
Egostar es el experto en esto, el te pude guiar mejor.
Saludos

Amigo Eduarcol probe tu propuesta pero no me funciono:

pero ese error no tiene nada que ver con lo que te propongo :confused:

de todas formas el salto de pagina con esa configuracion siempre lo vas a tener, la unica forma es imprimiendo directo al canvas

Pues vere en la red algun tutorial sobre la impresion con canvas, ya que nunca lo he usado pero siempre hay una primera vez no?.

Saludos.

ya buscastes en el foro??

ya he visto unos cuantos ejemplos por alli

Amigo Eduardo donde estas esos ejemplos que dices? no encuentro uno bueno y completo y ni siquiera en la red, o es que estoy buscando mal?

Saludos.

Bueno, aqui te pongo un pequeño código, pruebalo y adaptalo a tus necesidades

Código Delphi [-]
Uses Printers;

procedure Form1.Imprime;
var 
   I,X,Y,Lineas : Integer;
begin
   with Printer do begin
      Canvas.Font.Size := 10;
      Canvas.Font.Name := 'Courier New';
      Orientation := poLandscape;
      Y := 10;  //Se asigna en que posición se va a comenzar a imprimir 
      X := 100; //Asignamos (en este caso) en que columna se va a imprimir
      Lineas := 100; //Asignamos cuantas lineas vamos a imprimir;
      BeginDoc;
      for I := 1 to lineas do begin
          Canvas.TextOut(X,Y,'LINEA A IMPRIMIR');
          Y := Y + TextHeight('Yy'); //Esto funciona como un ENTER 
      end;
      EndDoc;
   end;
end;

Salud OS

aqui hay un hilo donde hablan tambien del canvas y del tamaño

http://www.clubdelphi.com/foros/show...imir%2C+canvas

Muchas Gracias Amigo Egostar!, de verdad no se como agradecertelo.

ahora mismo lo estoy revisando amigo eduarcol, muchas gracias.

Saludos.

Amigo Egostar, empecé a probar el código que me facilitaste para imprimir con canvas, excelente, me funciona perfecto, pero tengo un par de dudas:

Código Delphi [-]
procedure Imprimir;
var
   I,X,Y,Lineas : Integer;
begin
   with Printer do begin
      Canvas.Font.Size := 10;
      Canvas.Font.Name := 'Courier New';
      Orientation := poLandscape;
      Y := 100;  //Se asigna en que posición se va a comenzar a imprimir
      X := 100; //Asignamos (en este caso) en que columna se va a imprimir
      Lineas := 100; //Asignamos cuantas lineas vamos a imprimir;
      BeginDoc;
      for I := 1 to lineas do begin
          Canvas.TextOut(X,Y,'LINEA A IMPRIMIR');
          Y := Y + Canvas.TextHeight('Yy'); //Esto funciona como un ENTER
      end;
      EndDoc;
   end;
end;

Me imprime desde el inicio hasta al final de la hoja o sea me repite la linea desde la primera linea de la hoja hasta la ultima, me imagino que esa es la función de este pedazo de código:

Código Delphi [-]
for I := 1 to lineas do begin
          Canvas.TextOut(X,Y,'LINEA A IMPRIMIR');
          Y := Y + Canvas.TextHeight('Yy');

y si son nada mas dos lineas?, como saco los valores desde un DBGrid? de la forma normal:

Código Delphi [-]
for I := 1 to lineas do begin
           Canvas.TextOut(X,Y,'+ADOTable.Field[0].asstring+');
           Y := Y + Canvas.TextHeight('Yy');

o desde el mismo DBGrid (eso no lo sabría hacer).

Saludos.

A reserva de que me mandes por un tubo (o a freir espárragos en España) yo creo que los que te han sugerido usar directamente el canvas tienen toda la razón. QReport no se hizo para este tipo de tareas y por lógica no es lo que hace mejor. Estoy de acuerdo que es la forma más cómoda de hacerlo pero como ya te diste cuenta no es la que te da mejor resultado. Por experiencia propia puedo decirte que vale mas invertirle algunas horas trabajando en algo cuyo resultado no puedes ver de inmediato (como en QReport) pero que al final obtienes un resultado muy bueno. Si te pones a machetearle veras que inclusive puedes crear tu propia clase que se encargue de imprimir directamente el ticket y al final te será mucho más fácil.

Gracias lo probare
 

Pero de entrada esta super sencillo