*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