Numero de paginas

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
procedure TfrFichas.SpPrintClick(Sender: TObject);
begin
DmDip.Fich.DisableControls;
        try
Application.CreateForm(TfrLstFichas, frLstFichas);
frlstfichas.ListaFichas.Prepare;
nPages:=frlstfichas.Listafichas.qrprinter.PageCount;

//Lanzar diálogo de páginas.
Application.CreateForm(TfrDlgPaginas, frDlgPaginas);
frDlgPaginas.ShowModal;

frlstfichas.ListaFichas.printersettings.firstpage:=frDlgPaginas.SpFirst.value;
frlstfichas.ListaFichas.printersettings. lastpage:=frDlgPaginas.SpLast.Value;
frlstfichas.listafichas.Print;

        finally
        DmDip.Fich.EnableControls;
        end;
frLstFichas.Close;
end;

Un Saludo.