Corretto primo salto pagina

git-svn-id: svn://10.65.10.50/trunk@2659 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-03-01 14:02:56 +00:00
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);
}