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.