Jay,

You can put the 2 fields on top of each other and PADL the FIELD02 expression with the number of space it takes to move it away from FIELD01.


Step 1: Change FIELD02's left to be the same as FIELD01's left
Step 2: Change FIELD02's width to match its original right edge
Step 3: Change FIELD02's expression to be something like this:

    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
ENDFUNC

I hope this makes sense. I can send you a sample if you need it.