imprimir tickets

[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.