Re: question on fonts (DFreinkel)

date: Fri, 11 Jun 2021 20:10:49 +0000
from: Eric Hill via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
subject: RE: question on fonts

I did something like this. This is the DDS for a print file:

=====================================================================
0005.00 A R XHDR

0006.00 A*

0007.00 A*

0008.00 A 1 5 'FONT 6199 - PS 8'

0009.00 A FONT(6199 (*POINTSIZE
8))
0010.00 A 3 5 'FONT 6199 - PS 10'

0011.00 A FONT(6199 (*POINTSIZE
10))
0012.00 A 5 5'FONT 6199 - PS 12'

0013.00 A FONT(6199 (*POINTSIZE
12))
0014.00 A 7 5 'FONT 86 - PS 10'

0015.00 A FONT(86 (*POINTSIZE
10))
0016.00 A 9 5 'FONT 86 - PS 12'

0017.00 A FONT(86 (*POINTSIZE
12))
0018.00 A 11 5 'FONT 760'

0019.00 A FONT(760)

0020.00 A 13 5 'FONT 4427 - PS 8'

0021.00 A FONT(4427 (*POINTSIZE
8))
0022.00 A 15 5 'FONT 4427 - PS 10'

0023.00 A FONT(4427 (*POINTSIZE
10))
0024.00 A 17 5 'FONT 4427 - PS 12'

0025.00 A FONT(4427 (*POINTSIZE
12))
0026.00 A 19 5 'FONT 5687 - PS 8'

0027.00 A FONT(5687 (*POINTSIZE
8))
0028.00 A 21 5 'FONT 5687 - PS 10'

0029.00 A FONT(5687 (*POINTSIZE
10))
0030.00 A 23 5 'FONT 5687 - PS 12'

0031.00 A FONT(5687 (*POINTSIZE
12))
0032.00 A 25 5 'FONT 5707 - PS 8'

0033.00 A FONT(5707 (*POINTSIZE
8))
0034.00 A 27 5 'FONT 5707 - PS 10'

0035.00 A FONT(5707 (*POINTSIZE
10))
0036.00 A 29 5 'FONT 5707 - PS 12'

0037.00 A FONT(5707 (*POINTSIZE
12))
0038.00 A 31 5 'FONT 66'

0039.00 A FONT(66)

0040.00 A 33 5 'FONT 69'

0041.00 A FONT(69)

0042.00 A 35 5 'FONT 762'

0043.00 A FONT(762)

=====================================================================

Create the above print file with *DEVTYPE(*AFPDS).

Then a quick and dirty RPG to print the above:

=========================================
FFONTPRTP O E PRINTER

/free

write xhdr;

*inlr = *on;

/end-free
=========================================

Call the FONTPRT program and send the spool file to a printer capable of
*AFPDS type printing. This may not be 100% correct on all fonts but it
gets pretty close. There may be more fonts you can add now as I did this
back in 2013 for some form printing.

Hope this helps!