Re: AFPDS printing or other recommendations

Hi, PAGRTT is device specific.

Usually you can get better results using a record like this:

A* Char 090 rot.180
A R PRT0900O2P
A TEXT('Char 132')
A PRTFLD090 090
A FNTCHRSET(&PRTFONT &PRTCODPAGE
A (*POINTSIZE &PRTPOINT))
A POSITION(&PRTV &PRTH)
A TXTRTT(180)
A 01 COLOR(BLU)
A 02 COLOR(BRN)
A 03 COLOR(GRN)
A 04 COLOR(PNK)
A 05 COLOR(RED)
A 06 COLOR(TRQ)
A 07 COLOR(YLW)
A PRTV 5S 3P
A PRTH 5S 3P
A PRTPOINT 4S 1P
A PRTFONT 8A P
A PRTCODPAGE 8A P

If I remember correctly since 7.2 the argument of TXTRTT can be a hidden
field like PRTV/PRTH.

HTH

--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco


Il giorno mer 15 lug 2020 alle ore 15:51 dfreinkel <
dfreinkel@xxxxxxxxxxxxxxxxx> ha scritto:

Thanks all who gave tips. They helped quite a bit.

The problem I have this morning is that I am not able to get the
letters(fonts) to print in a large format. I need to get it to print the
characters between 1 and 3 inches high. Playing with *POINTSIZE and/or
CHRSIZ does not print a larger character. I cannot determine what is valid
and what is not. The fonts do change but they do not print larger than .25
of an inch.

I have used PAGRTT(90) and the report is printing landscape, but the
characters still print portrait. Why do they not rotate with the page?

A R RCD000
A PAGRTT(90)
A*
A ORDER_NO 10 POSITION(3 5)
A TEXT('Order or invoice number')
A FONT(1053 (*POINTSIZE 07))
A RDATE 5 POSITION(5 8)
A TEXT('Run date')
A FONT(1053 (*POINTSIZE 07))
A ORDER 6 0 POSITION(4 5)
A TEXT('Order number')
A FONT(2304 )
A CHRSIZ(20 20)
A NOCARTON 10 POSITION(9 5)
A TEXT('Number of Cartons')
A FONT(1053 (*POINTSIZE 07))

Darryl Freinkel
A4G.
Tel: 770.321.8562 Ext 111 | Cell: 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