Reports CAN GROW function

[Datathumper]

Can anyone help with this one.

I have a report where the fields are set to "can grow". I want to have the "excel" look (ie. each field has a visible border) when it reports. I would like to have all fields grow equally to the size of the larges one. Is that possible? Otherwize it produces an uneven look when one field is larger than the rest.

Thanks.

 

[Remou]

This may suit, first get rid of the borders on your controls, then add this code to the report module, which should draw boxes:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim lngHeight As Long 'store the height of tallest control
    Dim CTL As Access.Control
    
    For Each CTL In Me.Detail.Controls
        If CTL.Height > lngHeight Then
            lngHeight = CTL.Height
        End If
    Next

    For Each CTL In Me.Detail.Controls
        Me.Line (CTL.Left, 0)-(CTL.Left + CTL.Width, lngHeight), RGB(0, 0, 0), B
    Next
    Set CTL = Nothing
End Sub

 

[Remou]

PS There is
Microsoft: Access Reports Forum
forum703

 

[Datathumper]

It works perfect!!!!!!!!!!

Thanks a million.