Letra condensada en impresoras deskjet

[gendelphi]

Hola a todos

Alguien sabe la forma de poder imprimir letra condensada en impresoras de inyeccion de tinta.

Gracias!!

[Meneleo]

Por lo menos de seguro te puedo dar la respuesta para impresoras HP:
LasrJet monocromatica, DeskJet color, InkJet color.

ahi te van varios codigos:
TF=Tipo Font
Switch=1--> encendido, de lo contrario apagado
Result es el valor correspondiente

BEGIN {Impresoras HP LaserJet monocromatica y HP DeskJet}
if TF='EX' then {Expanded 5 CPI}
if switch=1 then Result:=#27'(s5.00H' else Result:=#27'(s10.00H';
if TF='VE' then {Doble alto}
if switch=1 then {Pica doble alto}
Result:=#27'(10u'+#27'(s10.00h24.0v3T'
else if switch=2 then {Pica doble alto y ancho}
Result:=#27'(10u'+#27'(s5.00h24.0v3T'
else {Pica (Normal 10 CPI, 12.0Vertical)}
Result:=#27'(10U'+#27'(s10.00h12.0v0T';
if TF='EL' then {Elite 12 CPI}
if switch=1 then Result:=#27'(s12.00H' else Result:=#27'(s10.00H';
if TF='CO' then {Compressed 17 CPI}
if switch=1 then Result:=#27'(s16.67H' else Result:=#27'(s10.00H';
if TF='EC' then {Elite-Compressed 20 CPI}
if switch=1 then Result:=#27'(s20.00H' else Result:=#27'(s10.00H';
if TF='BO' then {Bold}
if switch=1 then Result:=#27'(s3B' else Result:=#27'(s0B';
if TF='IT' then {Italic}
if switch=1 then Result:=#27'(s1S' else Result:=#27'(s0S';
if TF='UL' then {UnderLine}
if switch=1 then Result:=#27'&dD' else Result:=#27'&d@';
if TF='LI' then {Interlineado}
if switch=1 then Result:=#27'&l8D' {8 Lineas por pulgada}
else Result:=#27'&l6D';{6 lineas por pulgada, por defecto}
if TF='TM' then {Tamaño de hoja}
if switch=1 then Result:=#27'&l3A' {Tamaño oficio'}
else Result:=#27'&l26A';{Tamaño carta}
if TF='OR' then {Orientación de hoja}
if switch=1 then Result:=#27'&l1O' {Apaisada "Horizontal"}
else Result:=#27'&l0O';{Vertical}
if TF='IN' then {Reinicializa impresora con valores Standar}
Result:=#27'(10U'+#27'&d@'+#27'&l6D'+
#27'(s10.00h12.0v0s0b0T'+#27'(s1Q';
END;