[marcoszorrilla]

Otra opción si cada registro ocupa una página, es imprimir solamente una págaina:

Código Delphi [-]
procedure TfrMovBancos.SpeedButton1Click(Sender: TObject);
begin
//Montar un Case para saber que tipo de listado se va enviar

DmBanc.IBDtsBanc.DisableControls;
  try
  Application.CreateForm(TfrlstBancosl, frlstBancosl);
  frlstbancosl.ListaBancos.PrinterSettings.PrinterIndex:=GetImpresora(Impresora4);
  frlstbancosl.ListaBancos.Prepare;

  nPages:= frlstbancosl.ListaBancos.qrprinter.PageCount;

  //Lanzar diálogo de páginas.
  Application.CreateForm(TfrDlgPaginas, frDlgPaginas);
  frDlgPaginas.ShowModal;
  frlstbancosl.ListaBancos.Printersettings.firstpage:=frDlgPaginas.SpFirst.value;
  frlstbancosl.ListaBancos.Printersettings.lastpage:=frDlgPaginas.SpLast.value;

  frlstbancosl.Listabancos.PreviewModal;

  finally
  DmBanc.IBDtsBanc.EnableControls;
  end;
frlstBancosl.Close;
end;

En spFirst y spLast introduces las páginas por ejemplo 1 y 1 provocaría que solo imprimiese la página 1.

Un Saludo.