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