comenzar a imprimir desde la pagina numero X

[rruffino]

Hola amigos, esta vez el problema es que tengo que imprimir un par de hojas en quickreport pero partiendo de un numero de pagina determinado. Utilizo y qrsysdata para llevar el numero de pagina, pero el problema es que no se como hacer para decirle al reporte que empiece la numeración desde el numero, por ejemplo, 32 y asi el qrsysdata se encrgaria de llevar la cuenta de las paginas sucesivas.
Desde ya muchas gracias y saludos!!

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
procedure TfrFichas.SpPrintClick(Sender: TObject);
begin
DmXXX.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
        DmXXX.Fich.EnableControls;
        end;
frLstFichas.Close;
end;

Un Saludo.

[rruffino]

Marcos, no creo entemder tu respuesta. A ver si me explico mejor: yo tengo un reporte de 3 paginas, quiero imprimirlas a las 3 pero que la numeracion arranque por ejemplo desde el numero 10, es decir que imprimiria las 3 paginas con los numeros 10, 11 y 12 respectivamente. Este es el comportamiento que quiero lograr y no puedo.
Desde ya muchas gracias.

[marcoszorrilla]

Pues entonces lo que tienes que hacer es una trampa sumarle 9 al número de página que te da QuickReport.

Un Saludo.

[rruffino]

Marcoz, gracias por responder, entiendo lo que me dices, pero no siempre voy a sumarle 10, eso lo podría resolver, pero como hago para sumarle la cantidad esa que mencionas????
Gracias, Román.-

[[maeyanes]]

Marcos te está dando la respuesta, el chiste es sumarle el número de página con el que quieras iniciar menos uno. Si quieres que inicie en 10, le sumas 9, si quieres que inicie en 15, le sumas 14...

Esto en código sería algo así:

Código Delphi [-]
  NoPage := NoPage + (NoPageInicial - 1)

Saludos...

[rruffino]

Hola amigo, eso de sumar lo entiendo bien, pero en mi reporte (hecho en quickreport) tengo un QRSYSDATA que me toma el numero de pagina, como implememto el codigo que me pasaste??? No lo hallo por ningun lado.
Gracias

[[maeyanes]]

En este caso creo que tendrías que usar un QRLabel al cual le asignes tú el número de página que quieras mostrar.


Saludos...

[rruffino]

en este caso puede darse que el reporte tenga mas de una hoja, como hago para ir sumando de a uno a medida que se vayan agregando hojas?
Disculpa las molestias y Gracias

[[maeyanes]]

En el evento BeforePrint u OnGetText (la verdad no uso QReport así que estoy adivinando aquí) del QRLabel, haces la suma indicada, entonces, si el número de página actual del reporte es 1 y quieres que inicie con 10, la suma te devolverá 10, al avanzar el número de página, te dará 11, y así sucesivamente...


No hay problema, para eso estamos...