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.