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
@ -3776,10 +3776,13 @@ bool TForm::print(
|
||||
{
|
||||
if (from < 0) to = from;
|
||||
else if (cursor()) *cursor() = i;
|
||||
|
||||
const word h = set_body(page(pr), FALSE);
|
||||
if (h > pr.rows_left())
|
||||
pr.formfeed();
|
||||
|
||||
if (pr.current_row() > pr.headersize()+1)
|
||||
{
|
||||
const word h = set_body(page(pr), FALSE);
|
||||
if (h > pr.rows_left())
|
||||
pr.formfeed();
|
||||
}
|
||||
|
||||
set_body(page(pr), TRUE);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user