Can Grow Property

[chum]

In a report, I insert horizontal and vertical lines. When I set the property “Can Grow” to Yes, and the entry wraps around and makes the record wider vertically, the vertical lines in that particular record no longer touch the horizontal line below it. Can this be fixed?

[ChrisO]

Have you tried drawing the vertical line with a height of 32700 twips?

[chum]

How do you do this?

[ChrisO]

Have a play with changing some the values in the following code and also look up the help file on the line method.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Dim lngTop    As Long
    Dim lngLeft   As Long
    Dim lngRight  As Long
    Dim lngHeight As Long
    
    lngTop = 0
    lngLeft = 0
    lngRight = 8200
    lngHeight = 32700
    
    Me.DrawStyle = 0
    Me.Line (lngLeft, lngTop)-(lngLeft, lngHeight), vbBlack
    Me.Line (lngRight, lngTop)-(lngRight, lngHeight), vbBlack

End Sub