** in expression of vertically shaped report field you put Chopper13('Vertical') ** and somewhere in yr library add this function function chopper13 lparameters cString local result_string result_string='' do while len(cString) > 0 result_string=result_string +left(cString,1)+chr(13) cString= right(cString,len(cString)-1) enddo return result_string ********************Works fine with VFP6