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.

[Joelramos]

Tabla Datos.db
Data base: licencias
DBE: Manejador de tablas de nombre: Table1
estructura de la tabla:
Serie Type A Size 6 (key)
Reg A 6
Apellido A 25
nombre A 25
importe N
fecha D
Table1 este dentro de un DataModule (nombre: DataM)
Reporte en Form2 (quickreport1)
Un saludo

[[eduarcol]]

Probastes la solucion de marcos??'

Si lo quieres hacer con filtro seria,

Table1.Setrange([UltimoSerie],[UltimoSerie]);

donde UltimoSerie es una variable que captura la ultima clave ingresada al sistema.

no se si me explico bien