>With &lcThisBody > if ! empty(&lcPaperBody) > .visible = .t. > .top = lnLoc > .value = &lcPaperBody > .width = 700 > alines(lcalines,&lcPaperBody) > lnLineCount=0 > for j = 1 to alen(lcAlines) > lnLineCount = lnLineCount + ; > int(txtwidth(lcAlines(j),"Arial",12,"N")/65) + 1 > next J > .height = fontmetric(1,'Arial',12,'N') * lnLineCount > lnLoc = lnLoc + .height + 5 > else > .visible = .f. > endif >endwith >>