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 endwithThanks for all your ideas.