Numero de paginas

[marcoszorrilla]

Código Delphi [-]
procedure TfrFichas.SpPrintClick(Sender: TObject);
begin
DmDip.Fich.DisableControls;
        try
{Apertura del formulario que contiene QuickRep en este
caso se llama frlstFichas}
Application.CreateForm(TfrLstFichas, frLstFichas);
{Prepara el informe, porque es la única manera de
saber cuantas páginas va a tener en total}
frlstfichas.ListaFichas.Prepare;
{Guardo el número de páginas en una variable}
nPages:=frlstfichas.Listafichas.qrprinter.PageCount;

//Lanzar diálogo de páginas.
{Aquí abro un formulario en el que se elige desde
donde a donde se va a imprimir, lógicamente la
primera página a elegir sería la 1 y la última nPages
que contiene el número de la última página.}

Application.CreateForm(TfrDlgPaginas, frDlgPaginas);
frDlgPaginas.ShowModal;
{Una vez volvemos del diálogo de páginas, es decir le
hemos indicado de donde a donde queremos imprimir, cargamos
los valores en QuickReport y le mandamos imprimir}
frlstfichas.ListaFichas.printersettings.firstpage:=frDlgPaginas.SpFirst.value;
frlstfichas.ListaFichas.printersettings. lastpage:=frDlgPaginas.SpLast.Value;
frlstfichas.listafichas.Print;

        finally
        DmDip.Fich.EnableControls;
        end;
{Terminada la impresión cerramos el formulario contenedor
de QuickRep}
frLstFichas.Close;
end;

Un Saludo.