*Resolved* shrinking text inside a fixed size label :(

[cboffsite]

Hi All,

I'm wanting to do something a bit different and shrink the text within a fixed size label.

I'm using the following code to shrink the text (using ARIAL 72 point initially), but it only works when I've printed something first.
Otherwise it doesn't work at all.

Even if something has been printed, it isn't exactly perfect.
The problem is really bad when there are spaces in the text.

Perhaps a way without using the printer??

Can someone help.

Regards

Chris B

--------------------------------------------------------------------------

shrinktry = 100

While Printer.TextWidth(TextData(Y).Caption) > TextData(Y).Width And shrinktry > 0
Printer.Font.Size = Round(Printer.Font.Size) - 1
shrinktry = shrinktry - 1
Wend

[cboffsite]

I worked it out,

by passing all the label attributes to the form and using the form's textwidth attribute I can work it all out.

Regards

Chris B

[si_the_geek]

for a start you can use a standard picturebox in place of the printer, next make sure that ALL font properties are the same (font name/style, size, bold, underline, etc.)

[si_the_geek]

oh well, too slow!