Par2: Lines per page 2008-01-02 -- Lynn Howard Thanks Lee and Arnor,
Arnor your idea of printing the lines per pageand other values was very
useful.
Comments appreciated.
My Solution is below:
LinesPerPage = (Report{PROP:Height} -
Report$?Header{PROP:Height} )/Report$?Detail1{PROP:Height}
LinesPerPage = ROUND(LinesPerPage,1) !Round to nearest whole number
To fill the last page with shaded lines:
FillPage ROUTINE !Fill remainder of page with if using
color on last page
IF Rco:PrintColor = TRUE AND PrintText <> TRUE AND LinesPerPage <> 0
LOOP 200 TIMES !200 times is safety valve
IF Count# % LinesPerPage = 0 !If no remainder
EXIT
END
DO ShadeDetailLine !Color the detail line
PRINT(Report:Detail1) !Print empty colored line
END
END
Lee White notes:
A report structure is comprised of 4 areas:
1) Page Header
2) Detail area, the AT() of the report structure
3) Page Footer
4) Form
#1, #3 and #4 have positions that do not relate to #2 and do not
relate to the AT() of the report structure. The AT() defines the area
used for all DETAIL bands, group break headers and footers.
If you open your report and adjust the detail area to fit between the
page header area and the page footer area you should get an accurate
detail count without referring to the page header... since it's not
part of the detail area.
Printed April 28, 2024, 5:58 am This article has been viewed/printed 35114 times. |