Corretto primo salto pagina
git-svn-id: svn://10.65.10.50/trunk@2659 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
c6e369fcbd
commit
8e1aa76c3b
@ -3777,9 +3777,12 @@ bool TForm::print(
|
|||||||
if (from < 0) to = from;
|
if (from < 0) to = from;
|
||||||
else if (cursor()) *cursor() = i;
|
else if (cursor()) *cursor() = i;
|
||||||
|
|
||||||
const word h = set_body(page(pr), FALSE);
|
if (pr.current_row() > pr.headersize()+1)
|
||||||
if (h > pr.rows_left())
|
{
|
||||||
pr.formfeed();
|
const word h = set_body(page(pr), FALSE);
|
||||||
|
if (h > pr.rows_left())
|
||||||
|
pr.formfeed();
|
||||||
|
}
|
||||||
|
|
||||||
set_body(page(pr), TRUE);
|
set_body(page(pr), TRUE);
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user