Reducing font size according to textbox content ?

[jm.almeras]

Hello !
With Access 2000, i have a report which displays a person name and adress,
to be printed on very small adhesive labels, so that the maximum size of the
report is fixed.
Sometimes, the member name and adress is very big so that the whole text is
not displayed within the textbox. I would like to decrease font size when
this happens
I have tried to program this within the format event of the report detail
section, but i am getting nowhere. I do not manage to identify when the text
is too big (i hoped that by setting the extensibility property of the text
box, i would read the height and notice that the height is more than what
should be allowed, etc.).
Can anyone help me ?
thank you
Jean-Marie

 

[John Spencer]

You might take a look at
http://www.lebans.com/autosizefont.htm
It says it is for forms, but it might work on reports also.

If not, browse Stephen Lebans' site. He probably has some example that will
do what you want.


John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County

 

[jm.almeras]

Yes, apparently the answer is there
Thank you !

You might take a look at
http://www.lebans.com/autosizefont.htm
It says it is for forms, but it might work on reports also.

If not, browse Stephen Lebans' site. He probably has some example that
will do what you want.


John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County

 

[Chuck]

Hello !
With Access 2000, i have a report which displays a person name and adress,
to be printed on very small adhesive labels, so that the maximum size of the
report is fixed.
Sometimes, the member name and adress is very big so that the whole text is
not displayed within the textbox. I would like to decrease font size when
this happens
I have tried to program this within the format event of the report detail
section, but i am getting nowhere. I do not manage to identify when the text
is too big (i hoped that by setting the extensibility property of the text
box, i would read the height and notice that the height is more than what
should be allowed, etc.).
Can anyone help me ?
thank you
Jean-Marie

Access 97

Dim A, B, C, D As Integer

A = Len(([first field]))
B = Len(([second field]))
C = Len(([third field]))

D = IIf((A >= B And A >= C), A, IIf((B >= A And B >= C), B, C))


[Reports]![Avery 8160 Labels]![first field].FontSize = IIf(D > 33, 9, IIf(D >
28, 10, IIf(D > 23, 12, 14)))
[Reports]![Avery 8160 Labels]![second field].FontSize = IIf(D > 33, 9, IIf(D >
28, 10, IIf(D > 23, 12, 14)))
[Reports]![Avery 8160 Labels]![third field].FontSize = IIf(D > 33, 9, IIf(D >
28, 10, IIf(D > 23, 12, 14)))

Chuck
--