Hi Sergey
I have a richview form with a table (main table) of fixed size that covers the exact size of an 8x11.5 page.
Inside this table there are other tables and text. (everything isinside the main table, which looks like a page border)
There is a nested table, say table1, that is filled at runtime with a list (a regular Delphi richedit).
This list may be of variagle length (at runtime the Trichview is
readonly, the user cannot change anything).
I want to do this: if the lines of text are longer than X (I have the value of X), I want to put a 'Continue onnext page' as the last line inside table1,
insert a Pagebreak right after the bottom edgeof the main table, and then insert the rest of the list after the page break.
I know how to insert lines inside the table. I can break the richedit into 2
and insert the first one inside table1 .My problem is with inserting the second list after the table)
My questions:
a) how do I get to the "line after the bottom of the main table"?
b) how do I insert the page break there?
c) how do I add the remaining lines after that break?
Thanks very much
Enrico
page break after a table
-
- Site Admin
- Posts: 17559
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
I am afraid it's too difficult, and more difficult in the current version (allowing page breaks in table cells) than in v1.9.24 or older.
May be you can print table as it is (new version can print table row on several pages), and add the line "Continue on next page" using OnPagePrepaint event?
You can determine if a part of table starts a new page. Use RVPrint.GetFirstItemOnPageEx procedure. It returns the item starting page, and, if this is a table printed not from the beginning, ExtraData>=0.
May be you can print table as it is (new version can print table row on several pages), and add the line "Continue on next page" using OnPagePrepaint event?
You can determine if a part of table starts a new page. Use RVPrint.GetFirstItemOnPageEx procedure. It returns the item starting page, and, if this is a table printed not from the beginning, ExtraData>=0.