G
Guest
Hi,
I have various reports that print student lists grouped on various options;
by teacher, by grade, by class..... The line in detail section lists the
students name and rows of boxes based on the report fields. The boxes are
printed using the rpt.Line function.
I want the report to have the option to print additional lines of boxes
beyond the last student of each section. This would allow the teacher to
have spaces to write in additional students to each group. I have the
following code in the "on print" event of the detail footer.
Set rpt = Reports![by teacher / grade]
intx = 0
Do While (intx <> [Forms]![Report Menu]![ExtraLines])
sngTop = rpt.ScaleTop + (70 * intx)
DrawData (sngTop)
Me.DrawWidth = 2
rpt.Line (23, sngTop)-(460, sngTop + 70), lngColor, B
intx = intx + 1
Loop
[Forms]![Report Menu]![ExtraLines]) is a text box on the form that calls the
report and is the number of extra lines desired.
rpt.Line draws the box around the area where the student name would be in
the regular detail section
Here's my problem. If the additional boxes go beyond the allowable room on
the current page the row of boxes are split, part on this page and part on
the next page. When I say split I mean the top part of the each box in the
row is on the first page and the bottom part is on the next page. For
example: if I want 10 extra rows the first page might have 4 1/2 boxes and
the next page would have 5 1/2 boxes. The boxes are not split on whole
boxes, but on partial boxes.
I've worked with Duane in the Report group and resolved all my other
problems, but this one I'm stuck on. Is there any way to know where you are
in printing a page and if you're close to the end to force a page break? If
there is I could place the code in my footer on-page event.
Thanks
I have various reports that print student lists grouped on various options;
by teacher, by grade, by class..... The line in detail section lists the
students name and rows of boxes based on the report fields. The boxes are
printed using the rpt.Line function.
I want the report to have the option to print additional lines of boxes
beyond the last student of each section. This would allow the teacher to
have spaces to write in additional students to each group. I have the
following code in the "on print" event of the detail footer.
Set rpt = Reports![by teacher / grade]
intx = 0
Do While (intx <> [Forms]![Report Menu]![ExtraLines])
sngTop = rpt.ScaleTop + (70 * intx)
DrawData (sngTop)
Me.DrawWidth = 2
rpt.Line (23, sngTop)-(460, sngTop + 70), lngColor, B
intx = intx + 1
Loop
[Forms]![Report Menu]![ExtraLines]) is a text box on the form that calls the
report and is the number of extra lines desired.
rpt.Line draws the box around the area where the student name would be in
the regular detail section
Here's my problem. If the additional boxes go beyond the allowable room on
the current page the row of boxes are split, part on this page and part on
the next page. When I say split I mean the top part of the each box in the
row is on the first page and the bottom part is on the next page. For
example: if I want 10 extra rows the first page might have 4 1/2 boxes and
the next page would have 5 1/2 boxes. The boxes are not split on whole
boxes, but on partial boxes.
I've worked with Duane in the Report group and resolved all my other
problems, but this one I'm stuck on. Is there any way to know where you are
in printing a page and if you're close to the end to force a page break? If
there is I could place the code in my footer on-page event.
Thanks