Vertical Line Help

  • Thread starter Thread starter jschping
  • Start date Start date
J

jschping

Hi,

I want to place a vertical line in my detail section of my report. It is set
to "Can Grow" depending on the size of the records. I want the line to go
through all the records, until the bottom.

I have been using the following OnPrint event:

Me.Line (2.15 * 1440, 0) - Step(0, 20 * 1440)

I also have a horizontal line inside the detail section, because I want a
horizontal line under each row.

The vertical line prints in the right spot, and goes all the way to the
bottom. But it goes THROUGH my last horizontal line. I want it to stop at the
intersection, and not go through.

I have already slid the bottom of the detail section as short as it goes, so
it is right below the line control. In the property sheet, I see that the
detail section is a tad bigger than the position of the line, but it won't
let me resize it to be exactly under the line.

What can I do to make the line stop just a little bit before the end of the
detail section?

Thanks!
 
If your horizontal line is at the bottom of the detail section, you can use:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Me.Line (2.15 * 1440, 0)-Step(0, Me.Height)
End Sub
 
I tried it but it still crossed a tiny bit over the line.

Instead I did:

Me.Line (2.15 * 1440, 0)-(2.15 * 1440, (Me.Line38.Top))


That worked perfectly.

Thanks!
 
Back
Top