Trying to draw detail box set at tallest control 1

[bradles]

Thanks to dhookum I'm trying to implement the following code to draw boxes around the controls in the details section set at the tallest control at the On-Print event:

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
    
    'set the height of tallest
    lngHeight = Me.txtItemObjectiveText.Height
    
    'draw the box
    For Each CTL In Me.Detail.Controls
            Me.Line (CTL.Left, 0)-(CTL.Left, lngHeight), RGB(0, 0, 0)
    Next
    Set CTL = Nothing
End Sub

All I get is vertical lines that are set at the right height, but no horizontal lines. Anyone had any more experience with the Line function?

 

[Remou]

Hi
I think something like this should work:
[tt]Me.Line (CTL.Left, 0)-(CTL.Left + CTL.Width, lngHeight), RGB(0, 0, 0), [red]B[/red][/tt]

 

[bradles]

Thanks Remou but no luck, I gather the 'B' indicates drawing a box? Nothing appears at all with the 'B' switch.

Any other ideas?

 

[Remou]

Hi
This is the exact code I used to test:

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

It worked for me. Did you notice CTL.Left + CTL.Width, which I put in as well as B? I did not highlight it.

 

[bradles]

Remou, you are a champion. Thanks for spotting that error, it works a treat.

Have a star.