imprimir tickets

[anubis]

Gracias por contestar .

Lo probaré y ya os cuento.

[anubis]

Hola,

El codigo si funciona pero la primera vez, las siguientes en vez de las letras aparecen recuadros negros.

De momento lo estoy probando con una impresora virtual pdf y asi sale, con el otro codigo que puse no aparecia eso.
Le quite

Código Delphi [-]
Canvas.Brush.Style := bsClear;     Canvas.Brush.Color := clBlack;     Canvas.FrameRect(R);

y ya funciona bien. Ahora me queda probarlo en la impresora de tickets, pero la impresion, al menos en pdf, si funciona.

[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