[Combat-F2D]

prueba con:

// inicializo impresora e imprimo en rojo
Writeln(PrinterText, chr(27)+ chr(64) + chr(27)+ 'r' + chr(1));