vertical lines in Report's detail section

[budich]

Hi Guys,

I have problem in making vertical lines draw along the detail section because it depend to where the record stop.
I mean, the height of the lines depend on the amount of the records and I want make vertical lines in every field (make a column) where it begins along the part between page header and page footer.
How can make a tricky thing ?
thank you in advance.

 

[Francescina]

You already know the solution:
count the number of records in the OnPrint event of the detail section an set the length of the vertical lines accordingly.
You just need to experiment with your individual dimensions.

 

[petermeachem]

I think this is what you need. You want full vertical lines when the record height can grow?

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Me.ScaleMode = 1
Me.ForeColor = 0
'Repeat the following line of code for each vertical line
' 1*1440 represents 1 inch
Me.DrawWidth = 1

Me.Line (0 * 1440, 0)-(0 * 1440, 1440) 'Draws line at Left Margin
Me.Line ((3.545 / 2.54) * 1440, 0)-((3.545 / 2.54) * 1440, 1440)
Me.Line ((9 / 2.54) * 1440, 0)-((9 / 2.54) * 1440, 1440)
Me.Line ((11.429 / 2.54) * 1440, 0)-((11.429 / 2.54) * 1440, 1440)
Me.Line ((13 / 2.54) * 1440, 0)-((13 / 2.54) * 1440, 1440)
Me.Line ((15 / 2.54) * 1440, 0)-((15 / 2.54) * 1440, 1440)
Me.Line ((18.37 / 2.54) * 1440, 0)-((18.37 / 2.54) * 1440, 1440)



End Sub Peter Meachem
peter@accuflight.com