Avanzar una pagina, por cada registro

[alcides]

Hola a todos y gracias por la ayuda que me puedan brindar

Utilizo delphi 7 y mis tablas estan en access

Resulta que quiero imprimir X cantidad de registro y tengo lo siguiente

begin
Qry_Imprime.Close;
Qry_Imprime.Parameters.ParamByName('playa_empleado1').value := playa_empleado1.Text;
Qry_Imprime.open;
While not qry_imprime.Eof do begin
ppReport1.Print;

qry_imprime.Next
end
ppReport1.Print;
end;

pero resulta que quiero que avance la pagina cada vez que lea un registro

de la forma como esta tengo que cerrar y seleccionar el printer cada vez que imprime un registro, y quiero seleccionar el printer una sola vez y que imprima todo, pero avanzando una pagina cada vez que imprima un registro.


Gracias mil,


Alcides
Rep.Dom.