shrink to fit like excel

[billyAccess]

can someone help me...

this is my problem...

I am generating a report where in i have a textbox with a fix length.. then i want that any datas that will be called out to that textbox will fit into the text box without resizing or editing the textbox...
(hence.. like shrink to fit property of a cell in MS Excel )..

please please please,,,....
thanks in advance...

[puppydogbuddy]

1. Place the report in design view
2. higlight the textbox
3. invoke the property sheet for that textbox
4. set the "can Grow" and "can Shrink" properties to yes

[nico5038]

Access has no "shrink to fit property" for a text box.
All you can do is calculate the max length (in general 255 characters) and see or you can set the font size property from 8 to e.g. 6 to have the max text fit the text box e.g. when more than 150 characters are found.

Nic;o)

[billyAccess]

Thanks nico5038...

Another is that...
I tried to do that by using the TEXTHEIGHT command during the print or preview in the report but an error occurred...

It seam that access don't know this command..
Can show me how to do that??

[nico5038]

It's not the "Text height", but the "Font Size" property you need to manipulate in the OnFormat event like:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
If Len(Me.QuerySQL) > 150 Then
  Me.QuerySQL.FontSize = 6
Else
  Me.QuerySQL.FontSize = 10
End If
 
End Sub
 

Nic;o)

[saqassemi]

copy these codes in a report details properties and on print event:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control, strText As Variant, strName As String
' This routine uses the TextWidth methods to determine the maximum size
' of font possible to ensure a text string is printed in full in the
' report's current font without loosing any characters.
 
    Me.ScaleMode = 1 ' set all measurments to twips
 
    For Each ctl In Me.Detail.Controls
 
        If ctl.ControlType = acTextBox Then
 
        strName = ctl.Name
 
            If Nz(ctl.Tag, "") = "" Then
                ctl.Tag = ctl.FontSize
            End If
 
 
        ' set the control's fontsize to a suitable large size to begin with
            ctl.FontSize = ctl.Tag
 
        ' make sure the report font size is equal to the control's fontsize.
            Me.FontSize = ctl.FontSize
 
        ' grab the text from the control
            strText = ctl.Value
 
        ' evaluate the Loop until the text fits the Width of the box less 24%. Do this
        ' by reducing the font size incrementally and re-testing the Loop's criteria.
           If Len(strText) > 0 Then
            Do Until TextWidth(strText) < ctl.Width '- (ctl.Width * 0.26)
                ctl.FontSize = ctl.FontSize - 1
                ' reset the report's font size so the TextWidth function will
                ' continue to track the reducing font size correctly.
                Me.FontSize = ctl.FontSize
            Loop
 
        ' now evaluate for the height of the text to make sure it fits vertically
            Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26)
                ctl.FontSize = ctl.FontSize - 1
                ' reset the report's font size so the TextHeight function will
                ' continue to track the reducing font size correctly.
                Me.FontSize = ctl.FontSize
            Loop
 
        End If
        End If
 
    Next ctl
End Sub