Dynamically shrink font in Textbox

[mikeys7772]

I have a report textbox that contains a name. Because the report is for labels, I don't want it to grow. Instead, I want to see if the name is too big for the field width and then reduce the size of the font until it fits. Basically, I'm looking for a "ItWillGrow" property that will allow me to resize the field using VB. I'm thinking of using the "OnFormat" event of the details section.

Thanks for your help!

- Mike Heyden

[Rabbit]

I have a report textbox that contains a name. Because the report is for labels, I don't want it to grow. Instead, I want to see if the name is too big for the field width and then reduce the size of the font until it fits. Basically, I'm looking for a "ItWillGrow" property that will allow me to resize the field using VB. I'm thinking of using the "OnFormat" event of the details section.

Thanks for your help!

- Mike Heyden

What version of Access are you using?

Try using conditional formatting to check the length of the string and if over a certain length, reduce the font size.

[dima69]

Basically, I agree with Rabbit, although I woul take it a little further.
The problem here is that you cannot actually evaluate the string width from it's length when using true type fonts.
So for this purpose I use report's TextWidth property.
The sample code will look like this:

Private Sub Detail_Format(...)
dim R as Single
Me.FontName = "Areal" 'Your default font here
Me.FontSize = 10 'Your default font size here
R = Me.TextWidth(Me![MyTextStr]) / Me![MyTextStr].Width
If R >= 1 then
    Me![MyTextStr].FontSize = 10 'Don't forget to restore original font size
Else
    Me![MyTextStr].FontSize = 10*R
End If
End Sub