******************************************************************** * Description.......: Special function for CIU Buyer Index report * Calling Samples...: * Parameter List....: * Created by........: Nadya Nosonovsky 01/13/2001 04:11:30 PM * Modified by.......: ******************************************************************** function FunStr if recno()=1 && first record _screen.addproperty("OldFontName",_screen.fontname) _screen.addproperty("OldFontSize",_screen.fontsize) _screen.addproperty("OldFontBold",_screen.fontbold) ************ Settings for this report _screen.fontname="Times New Roman" _screen.fontsize=9 _screen.fontbold=.t. endif local lnSpaces, lnFieldWidth, lnSpaceWidth, lcStr lnFieldWidth=_screen.textwidth(alltrim(buyer)+", ") lnSpaceWidth=_screen.textwidth(" ") lnSpaces=lnFieldWidth/lnSpaceWidth lcStr=space(lnSpaces)+alltrim(Address)+", "+alltrim(City)+", Use "+StateUse if recno()=reccount() && last record ************ Restore old settings _screen.fontname=_screen.OldFontName _screen.fontsize=_screen.OldFontSize _screen.fontbold=_screen.OldFontBold endif return lcStrThanks to everyone for the great ideas.