PADL(FIELD02, ExtraSpaces(FIELD01))
Step 4: Create an ExtraSpaces( ) function:FUNCTION ExtraSpaces(lcField1Value) ** Font info for field 1 lcName1 = "Arial" lcSize1 = 12 lcStyle1 = "B" ** Font info for field 2 lcName2 = "Arial" lcSize2 = 10 lcStyle2 = "N" lnTextWidth = TXTWIDTH(lcField1Value,lcName1,lcSize1,lcStyle1)*; FONTMETRIC(6,lcName1,lcSize1,lcStyle1) lnSpaceWidth = TXTWIDTH(SPACE(1),lcName2,lcSize2,lcStyle2)*; FONTMETRIC(6,lcName2,lcSize2,lcStyle2) lnSpaces = CIELING(lnTextWidth/lnSpaceWidth) RETURN lnSpaces ENDFUNCI hope this makes sense. I can send you a sample if you need it.