enviar codigos ESC a impresora

[[basti]]

Empezado por JuanHC

LineaTexto = chr(27)+ 'p 0 5 20'
Writeln ( Fichero, LineaTexto);

Claro, es que lo que estás enviando es un texto, no los códigos correspondientes.

LineaTexto := chr(27) + 'p' + chr(0) + chr(5) + chr(20);

Fíjate que '0' no es lo mismo que chr(0). En el primer caso envías el carácter '0' (carácter número 48 de la tabla ASCII) a la impresora, eso te imprimirá un 0. En el segundo enviarás el carácter número 0 de la tabla ASCII, que en este caso se usa como carácter de control.