I'd like to print multiple grids (Grd1...Grd8) in one shot.

Every grid should be printed on a new page.

I wrote

var
   i,j: Integer;
   g:TProfGrid;
begin
   i := Grd1.BeginPrint;
   for j:=1 to 7 do
   begin
      printer.NewPage;
      g:=TProfGrid(FindComponent('grd'+IntToStr(j)));
      I := g.ContinuePrint(I+1, 0);
   end;
   printer.NewPage;
   Grd8.EndPrint(I+1, 0);

end;

However a funny gap is inserted on top of every new page (please see the attached video).

If I drop the      

printer.NewPage;

command, the next grid is not printed in a new page.

I have used PDFCreator to make all the process visible, but the same behaviour is seen when using a normal printer.

Please help

Peppe