The following code will work. Adjust the char count and font size to meet
your needs and put this on the "After Update" event of your field.

If Len(field_to_be_sized) < 5 Then
Let [field_to_be_sized].FontSize = 10
Else
Let [field_to_be_sized].FontSize = 6
End If
Dave Beasley wrote in message <083d01c355c2$80c69460$a601280a@phx.gbl>...
>I have a form which has a fixed length text box for
>printing. How can I get the font size to reduce
>automatically on long entries so that the text does not
>get clipped at the edge of the text box? i sthis possible
>in access?
>
>Many thanks
>
>Dave Beasley