Line grow with memo field...

[doran_doran]

Hi everyone,

I hope I can get some respond on these.

I have a report with 5 fields. One of this field is a memo field and set to grow. (grow=yes).

I put lines between these fields (verticle lines) so i looks good. Is there a way to make these line grow whenever memo field grows.

Best Regards
Dianna Goldsberh

 

[doran_doran]

Found an article but need more help....

http://support.microsoft.com/?kbid=197595

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim X1 As Single, Y1 As Single
Dim X2 As Single, Y2 As Single
Dim Color As Long

' Specify unit of measurement for coordinates on a page...
Me.ScaleMode = 5 ' Specify that measurement occur in inches.

' Set line to print 5 inches from the left margin.
X1 = 5
X2 = 5

' Set line to print from the top of the detail section
' to a maximum height of 22 inches.
Y1 = 0
Y2 = 22
Me.DrawWidth = 25 ' Width of the line (in pixels).
Color = RGB(0, 0, 0) ' Use black line color.

' Draw the line with the Line method.
Me.Line (X1, Y1)-(X2, Y2), Color
End Sub

 

[doran_doran]

I Knew No One Is Going To Help Me.... I Figured It Out...

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim X1 As Single, Y1 As Single
Dim X2 As Single, Y2 As Single

Dim X3 As Single, Y3 As Single
Dim X4 As Single, Y4 As Single

Dim X5 As Single, Y5 As Single
Dim X6 As Single, Y6 As Single

Dim X7 As Single, Y7 As Single
Dim X8 As Single, Y8 As Single

Dim X9 As Single, Y9 As Single
Dim X10 As Single, Y10 As Single


Dim Color As Long

' Specify unit of measurement for coordinates on a page...
Me.ScaleMode = 5 ' Specify that measurement occur in inches.

' Set line to print 5 inches from the left margin.
X1 = 0.365
X2 = 0.365

X3 = 1.188
X4 = 1.188

X5 = 1.565
X6 = 1.565

X7 = 2.488
X8 = 2.488

X9 = 3.1563
X10 = 3.1563

' Set line to print from the top of the detail section
' to a maximum height of 22 inches.
Y1 = 0
Y2 = 11

Y3 = 0
Y4 = 11

Y5 = 0
Y6 = 11

Y7 = 0
Y8 = 11

Y9 = 0
Y10 = 11

Me.DrawWidth = 1 ' Width of the line (in pixels).
Color = RGB(0, 0, 0) ' Use black line color.

' Draw the line with the Line method.
Me.Line (X1, Y1)-(X2, Y2), Color
Me.Line (X3, Y3)-(X4, Y4), Color
Me.Line (X5, Y5)-(X6, Y6), Color
Me.Line (X7, Y7)-(X8, Y8), Color
Me.Line (X9, Y9)-(X10, Y10), Color

End Sub

 

[JimmyB]

Diana,

Just wanted to say thanks for this, 5yrs on & it's helped me a lot.

Best regards,

J