imprimir tickets

[anubis]

hola de nuevo,

Ya probe la impresion, hasta le he quitado mas cosas y he dejado

Código Delphi [-]
 BeginDoc;
      TotHeight:= 0;
          for i := 0 to IMPRIMIR_ticket.Count -1 do
          begin
            TotHeight:= Canvas.TextHeight(IMPRIMIR_ticket.Strings[i]) * i;
            Canvas.TextOut(200, 100 + TotHeight, IMPRIMIR_ticket.Strings[i]);
            //Inc(TotHeight, TotHeight);
          end;
         // r:= Rect(200, 100, (Pagewidth - 200), (TotHeight - 100));
          //Canvas.Brush.Style := bsClear;
         // Canvas.Brush.Color := clBlack;
        // Canvas.FrameRect(R);
          EndDoc;
        end;

Imprimir imprime bien, pero, si imprimo 3 lineas me saca la tira completa, no se para despues de las 3 lineas.
Esto alguno sabe como se evita en una impresora de tickets que mande un LF (creo que se llama asi).

gracias