Re: printing with proportional font, landscape orientation

I was successful with the AFPDS program I wrote today. Used PAGRTT(90) to
print in landscape mode. Used the following RPG procedure for the majority
of the printing on the page.

thanks for the help.


** 2304 : HELVETICA ROMAN MEDIUM
** 2305 : HELVETICA ROMAN BOLD
A R TEXTREC1
A TEXT40 40A
A POSITION(&POSV &POSH)
A FONT(&FONTID +
A (*POINTSIZE &FONTHT +
A &FONTWID))
A POSH 5S 3P
A POSV 5S 3P
A FONTID 10A P
A FONTHT 4S 1P
A FONTWID 4S 1P

A R TEXTREC2
A TEXT80 80A
A POSITION(&POSV &POSH)
A FONT(&FONTID +
A (*POINTSIZE &FONTHT +
A &FONTWID))
A POSH 5S 3P
A POSV 5S 3P
A FONTID 10A P
A FONTHT 4S 1P
A FONTWID 4S 1P

** ---------------------- PrintText --------------------------
pPrintText b
dPrintText pi
d InVert 5p 3 const
d InHorz 5p 3 const
d InText 80a const
d InSize 3p 0 const options(*nopass:*omit)
d InBold n const options(*nopass:*omit)

d size s 3p 0
d bold s n
/free
fontId = '2304' ;
fontht = 12 ;
fontwid = 10 ;
posh = InHorz ;
posv = InVert ;

// change the font height and width.
if %parms >= 4 and %addr(InSize) <> *null ;
fontHt = inSize ;
fontWid = inSize / 1.2 ;
endif ;

// bold the font.
if %parms >= 5 and %addr(InBold) <> *null
and InBold = '1' ;
fontId = '2305' ;
endif ;

if %len(%trimr(InText)) <= 40 ;
text40 = InText ;
write textRec1 ;
else ;
text80 = Intext ;
write textRec2 ;
endif ;
/end-free
p
e



On Tue, Aug 6, 2013 at 4:51 PM, Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 8/6/2013 4:21 PM, Pat Barber wrote:

Sorry that turned to crap when I pasted it using Firefox.

Perhaps somebody can suggest a method to copy and paste
and keep the spacing correct.

code.midrange.com
--buck
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.