<<FONT02.RPGLE_Ejemplos de un FONT de varios tamaños.TXT>>
<<FONT02PR.PRTF_Ejemplos de un FONT de varios tamaños.TXT>>
Hola a todos:
Antes de ponerme en contacto con el CAS de IBM requiero la ayuda de alguno(s)
de vosotros. Estoy trabajando con archivos de impresión en formato *AFPDS.
También empleo distintos FONTs en función del título o texto que quiero
imprimir. Me ocurre lo siguiente, si el archivo en spool lo imprimo en láser me
respeta los tipos de letra. Si lo convierto a PDF con InfoprintServer, pierdo
los tipos.
En este correo incluyo un programa de ejemplo en el que imprimo distintos tipos
de letra. Es un programa preparado para hacer pruebas. Alguno de vosotros, que
tenga InfoPrintServer, ¿podría compilar y ejecutar este programa y comprobar lo
que indicaba antes?
Estoy en versión V5R4, con los niveles de PTF:
Acumulativo: 7282
Print group: 14
Llevo todo un día dándole vueltas a este tema y no sé por donde seguir. ¿Alguna
idea?
Un saludo y gracias por vuestra paciencia.
Javier Mora
Dpto. Informática
FFONT02PR O E PRINTER
D MUESTRA C Const( 'ABCDEFGHIJ abcdefghij 012345-
D 6789' )
D DescFuente_T DS Qualified
D fgid 10A
D nombre 25A
D lista DS Qualified
D 10A Inz( '11' )
D 25A Inz( 'Courier 10 CPI' )
D 10A Inz( '18' )
D 25A Inz( 'Courier Italic 10 CPI' )
D 10A Inz( '46' )
D 25A Inz( 'Courier Bold 10 CPI' )
D 10A Inz( '75' )
D 25A Inz( 'Courier 12 CPI' )
D 10A Inz( '92' )
D 25A Inz( 'Courier Italic 12 CPI' )
D 10A Inz( '223' )
D 25A Inz( 'Courier 15 CPI' )
D 10A Inz( '252' )
D 25A Inz( 'Courier 17 CPI' )
D 10A Inz( '253' )
D 25A Inz( 'Courier Bold 17 CPI' )
D 10A Inz( '254' )
D 25A Inz( 'Courier 17 CPI' )
D 10A Inz( '244' )
D 25A Inz( 'Courier Double Wide 5 CPI' )
D 10A Inz( '245' )
D 25A Inz( 'Courier Bold DW 5 CPI' )
D*
D 10A Inz( '40' )
D 25A Inz( 'Gothic 10 CPI' )
D 10A Inz( '39' )
D 25A Inz( 'Gothic Bold 10 CPI' )
D 10A Inz( '66' )
D 25A Inz( 'Gothic 12 CPI' )
D 10A Inz( '68' )
D 25A Inz( 'Gothic Italic 12 CPI' )
D 10A Inz( '69' )
D 25A Inz( 'Gothic Bold 12 CPI' )
D 10A Inz( '222' )
D 25A Inz( 'Gothic 15 CPI' )
D fonts Dim( 17 )
D Likeds( DescFuente_T )
D Overlay( lista )
D i S 10I 0
/Free
ejemplo = MUESTRA;
Write RSALTO;
For i = 1 To %Elem( lista.fonts );
font = lista.fonts( i ).fgid;
idfont = font;
texto = lista.fonts( i ).nombre;
Write RFONT;
Endfor;
*InLR = *ON;
Return;
size = 0;
font = '416';
idfont = font;
size = 15;
texto = 'Courier Roman 15p';
ejemplo = MUESTRA;
Write RFONT;
font = '416';
idfont = font;
size = 20;
texto = 'Courier Roman 20p';
ejemplo = MUESTRA;
Write RFONT;
*InLR = *ON;
/End-free
A R RSALTO SKIPB(2)
A R RFONT
A IDFONT 10A 1
A TEXTO 25A + 1
A EJEMPLO 50A + 1FONT(&FONT (*POINTSIZE &SIZE))
A SPACEA(2)
A FONT 10A P
A SIZE 4S 1P
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
