Limit detail section to a certain size

[DarrenUD]

Hi,



I have created a invoice report from using one of the tables in my database, now everything is working fine except I want the details section to expand to a certain height and move to the next page when I add new items to my report. please help me with this problem. Thanks

[June7]

Does report have report header/footer, page header/footer, group header/footer? Any space left over after these sections render is all that's available for the detail section. Detail section rendered height is controlled by the number of records and the design height of the section and available paper space.

[DarrenUD]

Hi June, yes you are right. I have expand the "Page Footer" section and it did the trick. But, as you can see from the image bottom line segment of the first page is gone, I have attached a line to the "Report footer" and it appears in the next page. If I draw a line in the "Page footer" section then it appears on each page and that is annoying. Is it possible to dynamically draw a line during report load (is it report load)....event (I mean count the number of report pages and draw a line in [pages -1]page (though I am not sure how to code this)..please help.

[June7]

Maybe possible to programmatically control the visibility of a line based on that criteria, but doesn't sound easy and I don't have any code. It would be in Format event of relevant section, probably Detail section.

[DarrenUD]

I have done it using the following code...yeah!!!Private Sub Report_Page()Dim nop As IntegerDim i As IntegerDim rpt As ReportDim sngWidth As Single, sngHeight As SingleMe.ScaleMode = 7Set rpt = Reports!xxxxxxxxxxxsngHeight = rpt.ScaleHeightsngWidth = rpt.ScaleWidthnop = Me.PagesIf (nop > 1) And (Me.Page = 1) Then Me.DrawStyle = 0 Me.DrawWidth = 10 Me.Line (0, sngHeight - 5.951)-(sngWidth - 0.05, sngHeight - 5.951), vbBlackEnd IfEnd Sub

[DarrenUD]

I have done it using the following code...yeah!!!

Private Sub Report_Page()
Dim nop As Integer
Dim i As Integer
Dim rpt As Report


Dim sngWidth As Single, sngHeight As Single


Me.ScaleMode = 7
Set rpt = Reports!xxxxxxxxxxx


sngHeight = rpt.ScaleHeight
sngWidth = rpt.ScaleWidth


nop = Me.Pages
If (nop > 1) And (Me.Page = 1) Then
Me.DrawStyle = 0
Me.DrawWidth = 10
Me.Line (0, sngHeight - 5.951)-(sngWidth - 0.05, sngHeight - 5.951), vbBlack
End If


End Sub

Thanks ...all

[June7]

Congratulations! I had some vague thoughts on a different approach. But after seeing your code, triggered a recollection I had used the Page event once a loooong time ago. Pulled up that report and there it is! However, my code is nowhere as complex and is setting length of vertical lines. Looking at it now I can't even understand how it works, it's been so long. Had to re-research it. Amazingly, Google search got me to the original thread that helped me before http://www.accessmonster.com/Uwe/For...ll-page-length