I need to draw vertical lines in the Onpage event of the report in order to have vertical lines throuh any blank lines beyond last detail section on a page to the top of the page footer. I have already the codes which draw those vertical lines in section detail (through the detail print event).
So in the Onpage event, I need those vertical lines to continue till the top of the page footer.
Private Sub Report_Page()
With Me
Me.line((.left+.Width+intlineMargin) ,A) -_ (.left+.Width+intlineMargin) ,B)
End With
End Sub
Apparently "B" could be "ScaleHeight - (.Section(acPageFooter).Height" but I am not sure it will works in all cases.
Further more, I don't know how to identify "A". It could be Line173 in a groupheader. It could be also the bottom of section detail (if there are already the vertical lines for this section). Both are possible.
I appreciate the time you take to listen my approximation, but effectively, this is important to find the solution.
Would you accept me to send you per mail the sample of my little data base in order you can test the report concerned. In this case, I would need your e-mail address.
Thks. Rgds.
So in the Onpage event, I need those vertical lines to continue till the top of the page footer.
Private Sub Report_Page()
With Me
Me.line((.left+.Width+intlineMargin) ,A) -_ (.left+.Width+intlineMargin) ,B)
End With
End Sub
Apparently "B" could be "ScaleHeight - (.Section(acPageFooter).Height" but I am not sure it will works in all cases.
Further more, I don't know how to identify "A". It could be Line173 in a groupheader. It could be also the bottom of section detail (if there are already the vertical lines for this section). Both are possible.
I appreciate the time you take to listen my approximation, but effectively, this is important to find the solution.
Would you accept me to send you per mail the sample of my little data base in order you can test the report concerned. In this case, I would need your e-mail address.
Thks. Rgds.