Pascal/Turbo Pascal - Tamaño de caracteres al imprimir

Alguien sabe como modificar el tamaño de las letras al imprimirlas en la impresora? usando write(lst,texto);
Necesito disminuir los caracteres asi entran mas datos a lo ancho de la pagina.
Gracias.

Si la impresora es Epson o emula Epson
para comprimir
write(lst,char(27)+char(15)+texto);
para descombrimir
write(lst,char(27)+char(18)+texto);

Si la impresora es Hewllet Packard ahi se complica porque tienen un codigo diferente por cada serie y es mas largo que el de las Epson.
Para 10 caracteres por pulgada tenes que mandar el codigo
1B266B3053 antes de la linea
para 12 el 1B266B3453
y para 16 el 1B266B3253
estos numeros son en hexadecimal y funcionan en la serie deskjet y laserjet algunos modelos.