Imprimir ultima pagina en quickreport

[marcoszorrilla]

Código Delphi [-]
DmConta.QrBancos.DisableControls;
  try
  Application.CreateForm(TfrlstBancosl, frlstBancosl);  
  frlstbancosl.ListaBancos.Prepare;

  nPages:= frlstbancosl.ListaBancos.qrprinter.PageCount;

  frlstbancosl.ListaBancos.Printersettings.firstpage:=nPages;
  frlstbancosl.ListaBancos.Printersettings.lastpage:=nPages;

  frlstbancosl.Listabancos.PreviewModal;

Aquí tienes un ejemplo. En síntesis, lanzas un Prepare y sabes cuantas páginas va a tener el listado y luego haciendo que la primer y última página sean igual al número de éstas, solamente te imprimirá la última.

Yo utilizo un diálogo en los listados para que el usuario diga desde que página hasta que otra desea.

Un Saludo.