Cómo imprimir una página concreta

[javierin_]

Buenos días:

Por favor, alguien puede decirme cómo puedo imprimir solamente una página concreta de un informe que contiene varias páginas?
Debo usar PageNumber?
Si es así, cómo debería hacerlo?
Por cierto, utilizo Delphi4 C/S y QuickReport 3.

Muchas gracias.

[marcoszorrilla]

Aquí te dejo un ejemplo:
procedure Tfr_Mov_Bancos.SpeedButton1Click(Sender: TObject);
begin

DmConta.QrBancos.DisableControls;
try
Application.CreateForm(TfrlstBancosl, frlstBancosl);
frlstbancosl.ListaBancos.PrinterSettings.PrinterIndex:=GetImpresora(DmAni2.ConfLptListados.value);
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
DmConta.QrBancos.EnableControls;
end;
frlstBancosl.Close;


end;


Un Saludo