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;
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;