Cobol - Imprimir comprimido en Laser

Hola a todos.
Alguien me puede decir que se le tiene que mandar a una impresora laser para que "comprima" los caracteres? (lineas de 132 columnas).
Muchas gracias.

Para impresoras con emulación HP la secuencia es:

escape (Alt-027)sNºH

donde Nº es la cantidad de caracteres por pulgada.
a mayor valor mas comprime.
el valor de escape en DOS es una flechita horizontal
apuntada a izquierda.

Para Imprimir en comprimido en varios tipos de impresoras Laser puedes hacer lo siguiente:

WORKING-STORAGE SECTION.
01 COMPRIMIDO PIC X(5) VALUE H"1B266B3253".

En la PROCEDURE DIVISION hacer una impresión en vacio sin hacer interlinea:

WRITE FDimpresora FROM COMPRIMIDO AFTER 0.

Todo lo que imprimas a partir de ahí hasta que cambies sera en comprimido.

Espero que te sirva. Un saludo. Alberto.