Increase line length if a field on a report grows

[kstevens]

I have created a report that looks like a spreadsheet. The only problem is that when one of the cell grows (cangrow property is yes) then the lines beside them are not long enough. I tried this code in the on format event of the form detail section

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
Me.Line96.Height = Me.description.Height
Me.Line95.Height = Me.description.Height
Me.Line94.Height = Me.description.Height
Me.Line93.Height = Me.description.Height
Me.Line92.Height = Me.description.Height
Me.Line91.Height = Me.description.Height
Me.Line90.Height = Me.description.Height
Me.Line109.Height = Me.description.Height
 
End Sub
 

But nothing changed. There will be multiple rows printing out on this report. Is there anyway to see how much the cell grows, or (through code) if the cell is going to grow, and if yes by how much. Then I could just set the height of the lines first.....maybe.

I have only made the one field (description) able to grow, and the field walls are transparent so that the height will only be decided by the sigle field.

Any help will be greatly appreciated.

[ADezii]

@kstevens
The following code will dynamically create a Vertical Line of any Width you so desire, which will be of the same Height of a Control on a Report whose CanGrow and CanShrink Properties are set to Yes. The code must reside in the Print Event of either the Detail Section or a Footer Section. In this demo, I generated a Vertical Line directly to the Left of a Description Control within a Report's Detail Section. The Line will dynamically grow to accommodate varying Heights of the Description Control. In this case, a Picture is worth 1,000 words, so download the Attachment and see what is going on. If you have any questions, please feel free to ask.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim sngLineTop As Single
Dim sngLineLeft As Single
Dim sngLineWidth As Single
Dim sngLineHeight As Single
 
Const conTWIPS = 1
Const conSOLID = 0
 
Me.ScaleMode = conTWIPS
Me.DrawStyle = conSOLID
 
'Set the Line coordinates
sngLineTop = Me![Description].Top
sngLineLeft = (Me![Description].Left - 50)
sngLineWidth = 25   'Width of Line
 
With Me![Description]
  sngLineHeight = .Height
End With
 
'Now, draw the Line with the Box Fill Option
Me.Line (sngLineLeft, sngLineTop)-Step(sngLineWidth, sngLineHeight), , BF
End Sub

[kstevens]

Thanks ADezzi,

I modified the code like this

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
 
Const conTWIPS = 1
Const conSOLID = 0
 
Me.ScaleMode = conTWIPS
Me.DrawStyle = conSOLID
 
Me.Line ((Me![LineItem].Left - 10), Me![LineItem].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![LineQty].Left - 10), Me![LineQty].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![Text111].Left - 10), Me![Text111].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![description].Left - 10), Me![description].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![SerialNum].Left - 10), Me![SerialNum].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![WorkOrderNumber].Left - 10), Me![WorkOrderNumber].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![InvoiceNo].Left - 10), Me![InvoiceNo].Top)-Step(3, Me![description].Height), , BF
Me.Line ((Me![temp].Left - 10), Me![temp].Top)-Step(3, Me![description].Height), , BF
End Sub
 

And it worked great. Thanks for the reply...... Do you really just sit around and wirte experimental databases just to upload...., crazy if you do, but it is very much appreciated.

[ADezii]

@kstevens
Glad it worked out for you.