Problema Imprimir Ticket con QuickReport

[[egostar]]

Empezado por enecumene

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.

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

[[eduarcol]]

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

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

[[enecumene]]

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

Empezado por eduarcol

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

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

ahora mismo lo estoy revisando amigo eduarcol, muchas gracias.

Saludos.

[[enecumene]]

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.

[[AzidRain]]

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.

[luchifer]

Pero de entrada esta super sencillo