Change txtBox font size depending on contents (1 Viewer)

[i4004]

Any idea if it is possible to change the font size of a report text box according to it contents - in this case text which is either A or C?

Conditional formatting does not appear to do more than change the style of font - I cannot see a text size option.

Events do not appear to include 'OnOpen' etc.

 

[Mr. B]

You will need to use the OnFormat event of each section of your report. Using that event, you can use VBA to change any property of your text box, including the font size, color, etc.

 

[vbaInet]

If you set the "Can Grow" property of the controls they should automatically become wider to fit text when printed.

 

[i4004]

You will need to use the OnFormat event of each section of your report. Using that event, you can use VBA to change any property of your text box, including the font size, color, etc.

Thanks - I have used the OnFormat event of the detail section with an embedded macro. However, I could not find (nor in VBA) a font size property.

Instead I have used two different txtBoxes, one with large font, one with small. I have then used conditions in the macros to find which one to make visible and which invisible using the SetProperty action. Rather a bodge but it works as required.

However, am I missing the route to the font size? In vba I tried the 'docmd.setproperty' but, as in the macro, could only see 'visible' as an option to use.

 

[Rich]

If you set the "Can Grow" property of the controls they should automatically become wider to fit text when printed.

CanGrow only affects the length of the textbox surely?

 

[vbaInet]

Correct Rich. I was actually rather sleepy when I wrote that

An idea would be (using On Format) event check the current number of characters and based on that increase or decrease accordingly using the FontSize property. You would test manually to see the maximum number of characters that will fit based on the largest font size you want to use.

 

[Rich]

Why re-invent the wheel when this guy's been doing it for years

http://www.lebans.com/justidirect.htm

 

[Mr. B]

i4004,

Just so you will know for future reference, there are properties that can be used with controls and sections of reports that for some unknown (at least to me) reason are not displayed in the intellisence lists for the selected control or section when writing VBA code.

From the VBA help file about "Font Name Property":

Private Sub Detail_Format(Cancel As Integer, _        FormatCount As Integer)    Dim rpt as Report    Dim strMessage As String    Dim intHorSize As Integer, intVerSize As Integer    Set rpt = Me    strMessage = "DisplayMessage"    With rpt        'Set scale to pixels, and set FontName and        'FontSize properties.        .ScaleMode = 3        .[B]FontName[/B] = "Courier"        .FontSize = 24    End With    ' Horizontal width.    intHorSize = Rpt.TextWidth(strMessage)    ' Vertical height.    intVerSize = Rpt.TextHeight(strMessage)    ' Calculate location of text to be displayed.    Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2)    Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2)    ' Print text on Report object.    Rpt.Print strMessageEnd Sub

Hopefully from this example you can get an idea of just how much control you actuall can have over the properties of a text box and/or other controls when using VBA.

 

[gemma-the-husky]

intellisense wont show you all the properties but this

ProductField.Properties("fontweight") = 700

is the correct sort of syntax


--------------
this sort of thing should show you all the available properties

dim prp as property

For Each prp In anyfield.Properties
msgbox(prp.name)
Next prp

 

[wiklendt]

here's a thread that helped me sort out all sorts of formatting complexities with a report i was attempting to generate (and indeed, did generate). maybe it will help you.

http://www.access-programmers.co.uk/forums/showthread.php?t=154879