Help with drawing horizontal line in Access subreport 2003

jeremy.wy.chong DeleteThis @gmail.com wrote:

>Thanks heaps for your help Marshall, it is much appreciated.


Does that mean that you have found a way to get what you
want? If so, please explain what you did so we can all
learn from it.

If you have not suceeded, then I still need to know how to
determine the vertical position of the line in the detail
section (at the very bottom?) along with the line's
horizontal starting point and either its end point or
length.

I am still struggling to find a block of time to investigate
an idea. Tomorrow morning may be a possibility.

--
Marsh
MVP [MS Access]

jeremy.wy.chong.RemoveThis@gmail.com wrote:

>I gave it a go but I have no idea what sort of syntax to use to check
>if that subreport is showing on the current page of the main
>report..... it also makes it very tricky that the subreport I am
>checking is actually a subreport in a subreport of the main report...


Well, this seems to work in my quicky tests:

Main report code:
---------------------------------------------------------
Public glngTopMargin As Long
Public glngY As Long, glngX As Long, glngW As Long

Private Sub Report_Open(Cancel As Integer)
glngTopMargin = Me.Printer.TOPMARGIN
End Sub

Private Sub Report_Page()
If glngW > 0 Then
Me.Line (glngX, glngY - glngTopMargin)-Step(glngW,
0), vbRed
End If
End Sub
---------------------------------------------------------

Subreport code:
---------------------------------------------------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As
Integer)
With Reports!report11
.glngY = IIf(.Top > 0, .Top, .glngTopMargin) _
+ Me.Top + Me.FreeText.Top + Me.FreeText.Height
.glngX = Me.Left + Me.FreeText.Left
.glngW = Me.FreeText.Width
End With
End Sub

Private Sub ReportFooter_Format(Cancel As Integer,
FormatCount As Integer)
Reports!report11.glngW = 0
End Sub
---------------------------------------------------------

Watch out for line wrapping.

In that code, the main report is named Report11

Since you never did get back to me with how you determine
the line's starting point and its width, I just used the
bottom of the FreeText text box in my test subreport.

I did not use a third level of subreport so you'll have to
add another another Top into the messy expression. I think
it could be something like:
.glngY = IIf(.Top > 0, .Top, .glngTopMargin) _
+ Parent.Top + Parent.firstsubreport.Top _
+ Me.Top + Me.FreeText.Top + Me.FreeText.Height

The subsubreport's detail section must gave its KeepTogether
property set to Yes.

--
Marsh
MVP [MS Access]