MoveTo(0,0)
SetLineWidth(0.0070)
SetStrokeColor([100])
SetFillColor([0])
LineTo(&width,0.0000)
LineTo(&width,&height)
LineTo(0.0000,&height)
LineTo(0.0000,0.0000)
ClosePath()
Stroke()
define(&i_,integer,1)
define(&sMyText,string,'The quick brown fox jumps over the lazy dog')
define(&iPrintLines,integer,1)
define(&mQuietZone,measure,&width*0.2)
define(&StringToShow,string,'')
&iPrintLines:=Floattoint(stringwidth(&sMyText)/(&width-&mQuietZone))+1
MoveTo(&Width,&Height)
Margin((&Width/2),(&Height/inttofloat(&iPrintLines))-0.0833)
SetStyle(&Verdana)
search(&sMyText,' ')
if(stringwidth(&StringToShow+&sMyText)<(&width-&mQuietZone))
&StringToShow:=&StringToShow+' '+&sMyText
else()
Crlf(0.1667)
ShowCenter(&StringToShow)
&StringToShow:=&sMyText
endif()
endsearch()
Crlf(0.1667)
ShowCenter(&StringToShow+' '+&sMyText)