Cita:
|
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.