RE: question on fonts -- RPG400-L

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!

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of DFreinkel
Sent: Friday, June 11, 2021 3:01 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: question on fonts

CAUTION: This email originated from outside the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.

I am not looking for a GUI editor

I am just trying to use as much as we can to improve the appearance of the reports with the tools available

So simply changing fonts for now could be a good start

Courier is really getting old

Darryl

Sent from my iPhone

On Jun 11, 2021, at 2:36 PM, Nathan Andelin <nandelin@xxxxxxxxx> wrote:

Darryl,

Given that you want to play with AFP fonts, are you asking what sort
of GUI editor might be available for AFP DDS Printer Files?

Perhaps GUI editors comparable to ones you might use for creating HTML
formatted output; viewable in browsers?

Nathan.

On Fri, Jun 11, 2021 at 9:50 AM <dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

I am creating a few reports, something I have not done in a while,
preferring to use web based tools.

My question to the group is: for those of you who are creating
reports, how have you modernized the reports using what is available
in the DDS for the PRTF's.

I want to get the look and feel use more modern and need to play with
the fonts but have not found a good reference to what font's look
line and which to use for size etc.

I have created the reports using *AFPDS formats and am trying to play
with the fonts.

Thanks.

Darryl Freinkel

A4G

Telephone: 770.321.8562 Mobile: 678.355.8562

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post
a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com