whileprintingrecords;
StringVar FormattedPhone;
StringVar AreaCode;
StringVar PrefixThree;
StringVar SuffixFour;
AreaCode:= Left({?Phone},3);
PrefixThree:= Mid({?Phone},4,3);
SuffixFour:= Right({?Phone},4);
FormattedPhone:= "(" & AreaCode & ") " & PrefixThree & "-" & SuffixFour;