Shrik to fit or AutoResizeFont (1 Viewer)

saqassemi

Registered User.
Local time
Today, 05:06
Joined
Nov 11, 2017
Messages
37
Hello, I have a report that has some textboxes with fixed size but some values are bigger than textboxes. so I find a code that change the size of fonts but there is a problem with empty fields.
I attached a sample file that has two report, the first run good but the second has an error because of empty field.
:confused: Please help me with this problem! Thanks
 

Attachments

  • Shrik to fit or AutoResizeFont.zip
    50.3 KB · Views: 81

isladogs

MVP / VIP
Local time
Today, 13:06
Joined
Jan 14, 2017
Messages
18,129
You seem to be doing the Access equivalent of using a hammer to crack a nut.

Why not just increase the width of your textbox.

If you really want to do this, enclose the code section with

Code:
If Len(strText)>0 Then

Do Until code here....

End if

Tested and it works

However, I think the approach is flawed as you will see if you enter a very long text string of say 200 characters.
The text will fit but the font size will be so small (1pt?) as to be unreadable
 
Last edited:

James Dickinson

PigeonPie
Local time
Tomorrow, 02:06
Joined
May 10, 2018
Messages
43
First set the can grow property of the text box on the report to true then your vba code should have "NZ(strText)" which will, in the case that you have null value in your table, set the text value as vbnullstring instead and your problem will go away.

i.e. Do Until TextHeight(Nz(strText)) < ctl.Height - (ctl.Height * 0.26)

AND Do Until TextWidth(Nz(strText)) < ctl.Width

Alternatively simply make the report text field "eName" larger by stretching it out in design mode
 

saqassemi

Registered User.
Local time
Today, 05:06
Joined
Nov 11, 2017
Messages
37
You seem to be doing the Access equivalent of using a hammer to crack a nut.

Why not just increase the width of your textbox.

If you really want to do this, enclose the code section with

Code:
If Len(strText)>0 Then

Do Until code here....

End if
Tested and it works

However, I think the approach is flawed as you will see if you enter a very long text string of say 200 characters.
The text will fit but the font size will be so small (1pt?) as to be unreadable
Thanks Ridders
Shrink to fit is a useful option for fixed table designs. I know can shrink/grow in textbox option but many people don't like to change the fixed design for a few records that are longer than usual.
If you surf the internet for this option you see many people have the same question with no answer. Thanks for your answer
I attached the file with adding your code to solve the problem for other people that search on google to download.
 

Attachments

  • Shrik to fit or AutoResizeFont.zip
    54.1 KB · Views: 64

isladogs

MVP / VIP
Local time
Today, 13:06
Joined
Jan 14, 2017
Messages
18,129
You're welcome.

Using Nz would work equally well either in the way suggested by James Dickinson or using

Code:
If Nz(strText,"")<>"" Then

Do Until ....

End If
 

The_Doc_Man

Immoderate Moderator
Staff member
Local time
Today, 07:06
Joined
Feb 28, 2001
Messages
26,838
The problem is that for reasons only known to the Access Gods, there is no form equivalent to the report ability to compute the size of a given text string if you supply the font name and font size. It is entirely possible that they use something from the printer driver's bag a tricks to determine this information. The problem of auto-sizing fonts has come up in this forum many times but the answer usually comes down "make a guess and just swing with it."

I'm pretty sure that if you use a non-proportional font, you make your problem harder. So that means that Courier and Lucida Console will work well, but any font that supports kerning is going to make your computation a living Hell.
 

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 21:06
Joined
May 7, 2009
Messages
18,987
Here is the modified version. Test it.
 

Attachments

  • Shrik to fit or AutoResizeFont.zip
    70.3 KB · Views: 86

James Dickinson

PigeonPie
Local time
Tomorrow, 02:06
Joined
May 10, 2018
Messages
43
Or limit the character length that can be entered for the report to something reasonable and you won't have to do any resizing at all :)
 

Users who are viewing this thread

Top Bottom