RE:Ayuda con fuentes en impresion
Depende de la marca o la compatibilidad de marcas que tu impresora soporte.
Básicamente hay dos "estándares", el Epson y el Hewllet Packard.
Si es Epson (o compatible Epson).
Para hacer que la línea se imprima condensada (a 132 columnas) debes enviar como principio de línea los careacteres ESCape más el 15 así:
WriteLn(lst,chr(27)+chr(15)+'Esta línea debería imprimirse condensada);
Si es HP (o compatible HP).
Es un poco más complicado pues trabaja con comandos PCL, para hacer una línea condensada debes enviar el comando "ESC(s4S" así:
WriteLn(lst,$chr(27)+'(s4SEsto debería aparecer condensado');
En ambos casos el caracter 27 (ESC) le indica a la impresora que debe interpretar lo que sigue como un comando de impresión y no como una cadena a imprimir.
Otra cosa a tener en cuenta es que cada comando se aplica solamente a la línea que se está imprimiendo, cada vez que se le envia un retorno de carro, la impresora "se resetea" a su estado original, por eso debes enviar todo lo necesario en todas las líneas que vayas a mandar a la impresora.