Cómo imprimir una página concreta

[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