Impresión en Power
página(s) : 1/3 (1846 palabras totales en este texto) (17081 Lecturas) 
En PowerCobol, podemos imprimir por la impresora exactamente igual que lo hacemos con cualquier otro compilador, utilizando la Working-Storage Section para definir nuestras lineas de impresión.
La gran diferencia es que no podemos enviar secuencias de escape para controlar el tamaño o tipo de nuestra letra. Pero en cambio nos propone una interesante opción con la cual conseguimos eso y además, y algo muy importante, sin importar la impresora a la cual vaya dirigido el listado.
El modo es sencillo, tenemos que definir cada tipo de letra a utilizar en Special-Names y luego especificarlo para cada nivel 01 de nuestras líneas de impresión en la Working, pero veamos un ejemplo de como conseguirlo.
...
SPECIAL-NAMES
PRINTING MODE GRANDE
FOR SOCS
SIZE 10
PITCH 13
FONT GOTHIC
PRINTING MODE LARGA
FOR SOCS
SIZE 10
PITCH 10
FONT GOTHIC
FORM F0201
PRINTING MODE NEGRITA
FOR SOCS
SIZE 9
PITCH 13
FONT MINCHOU.
Esta es la parte que iría en la SPECIAL-NAMES, como veis hemos definido tres tipos diferentes de letra para nuestro listado, con una serie de opciones que vamos a ver a continuación:
- PRINTING MODE, el nombre que le damos al formato.
- FOR, hemos puestos SOCS, pero también se puede poner MOCS o ALL, hace referencia a los alfabetos que vamos a utilizar.
- SIZE, indica el tamaño de la fuente.
- PITCH, indica los carácteres que caben en una pulgada, esto es muy interesante, porque aunque utilicemos una letra de tamaño grande, podemos forzar a que meta los caracteres que deseemos por pulgada, ya sabéis que una pulgada equivale a 2,54 cm.
- FONT, indica la fuente que queremos, pero ATENCION, aquí solo pondremos dos tipos de fuentes, GOTHIC o MINCHOU. Estas dos fuentes se manejan en el fichero de configuración (COBOL85.CBR) con la cláusula @PrinterFontName=(la fuente que asumirá GOTHIC, la fuente que asumirá MINCHOU).Por ejemplo: @PrinterFontName=(Arial, Courier). Esó deberá de ir en el archivo de configuración.
- FORM, indica la altura y el tamaño de la fuente, los valores posibles son F0201, F0202, H0202, H0102, con ello podremos hacer la letra mas alta o doble tamaño.
- ANGLE, nunca la he utilizado pero sirve para dar el angulo de la letra.
Como siempre el método mejor para comprobar todo es probarlo vosotros mismos, cambiando todos los valores posibles. Yo recuerdo que lo primero que hice fue crearme un montón de tipos y luego imprimir una linea con cada uno hasta encontrar en cada caso el que mas me interesaba.
También tenéis que tener en cuenta el tema de las fuentes proporcionales, si vamos a utilizar listados con columnas, ya que cada letra tendrá un ancho diferente.
Ahora veamos como se le indica en la WORKING con que letra trabaja cada linea:
...
WORKING-STORAGE SECTION.
01 LINEA01 CHARACTER TYPE GRANDE.
02 FILLER PIC X(40) VALUE 'ESTA ES LA LETRA GRANDE'.
01 LINEA02 CHARACTER TYPE LARGA.
02 FILLER PIC X(40) VALUE 'ESTA ES LA LETRA LARGA'.
01 LINEA02 CHARACTER TYPE NEGRITA.
02 FILLER PIC X(40) VALUE 'ESTA ES LA LETRA NEGRITA'.
...
En la PROCEDURE solo quedará imprimir como siempre las lineas en nuestra impresora.
Como os decía antes lo mas importante es que imprimirá por la impresora predeterminada de Windows y no tendremos que preocuparnos de nada mas, ni el modelo, ni la conexión, ni la interface .... (Continúa en la página siguiente). |