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:

Código Delphi [-]
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