imprimir tickets

[anubis]

Buenas de nuevo,

He conseguido, gracias vosotros, foreros, imprimir en impresora de tickets cargando las impresoras asignando la impresora con printer.printers y luego con

Código Delphi [-]
with Printer do
    begin
      PRINTER.PrinterIndex:=COMBOBOX1.ItemIndex;
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to IMPRIMIR.Count -1 do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(IMPRIMIR.Strings[i])),
                   IMPRIMIR.Strings[i]);

      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;

Pero tengo el problema que si imprimo una o dos lineas por ejemplo, me saca la tira completa.
Hay alguna forma de sacar el ticket justo?.