Qreport??

[fmonte]

Hola gente tengo una duda, no se come obtener el total de paginas en un qrepor, yo logre el numero de pagina actual, q es con TQRSysData y poniendo en "Data" a qrsPageNumber, pero no se como obtener el total de paginas, porque quiero imprimir en el reporte, por ejemplo Pagina 1 de N, ese N es q quiero obtener, como hago???
Muchas gracias
Pancho

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
procedure TfrConVentas.SpeedButton4Click(Sender: TObject);
 var
 Bm:TbookMark;
 
 begin
 nOpcion:=0;
 nPages:=0;
 BM:=DmVil.Fact.GetBookMark;
 DmVil.Fact.DisableControls;
 
 DmVil.fact.Filter:='Numero ='+QuotedStr(DmVil.Factnumero.value);
 DmVil.fact.Filtered:=True;
 
   Application.CreateForm(TfrLptFactura,frLptFactura);
   frlptFactura.LptFactura.Prepare;
 
   nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;
   noPcion:=0;
   frLptFactura.LptFactura.PreviewModal;
   frLptFactura.Close;
 
     DmVil.Fact.GotoBookmark(Bm);
     DmVil.Fact.EnableControls;
     DmVil.Fact.FreeBookMark(Bm);
 end;
 
 
 procedure TfrLptFactura.LptFacturaBeforePrint(Sender: TCustomQuickRep;
   var PrintReport: Boolean);
 begin
 
 lbPaginas.caption:='/ '+IntToStr(nPages);
 ...

Como verás es preciso hacer un Prepare antes para saber el número de páginas que va a tener el informe.

Muevo el tema al foro de impresión desde varios.

Un Saludo.

[fmonte]

Código Delphi [-]
 procedure

Código Delphi [-]
 TfrConVentas.SpeedButton4Click(Sender: TObject);
  var
  Bm:TbookMark;
  
  begin
  nOpcion:=0;
  nPages:=0;
  BM:=DmVil.Fact.GetBookMark;
  DmVil.Fact.DisableControls;
  
  DmVil.fact.Filter:='Numero ='+QuotedStr(DmVil.Factnumero.value);
  DmVil.fact.Filtered:=True;
  
    Application.CreateForm(TfrLptFactura,frLptFactura);
    frlptFactura.LptFactura.Prepare;
  
    nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;
    noPcion:=0;
    frLptFactura.LptFactura.PreviewModal;
    frLptFactura.Close;
  
      DmVil.Fact.GotoBookmark(Bm);
      DmVil.Fact.EnableControls;
      DmVil.Fact.FreeBookMark(Bm);
  end;
  
  
  procedure TfrLptFactura.LptFacturaBeforePrint(Sender: TCustomQuickRep;
    var PrintReport: Boolean);
  begin
  
  lbPaginas.caption:='/ '+IntToStr(nPages);

Hola no entiendo el codigo, primero no se que es el componente "DmVil" y me parece que tiene q ser mas sensillo, mira yo me base en los ejemplos que viene con delphi 6 y creo q la cantidad de Paginas es "Qrep1.QRPrinter.PageCount", pero no se yo lo segui y no se en donde ponerlo a este codigo, porque al principio es 1 y en algun momento se vuelve el total y ahi en donde yo puse el codigo para que muestre pero no me lo cambia. Te paso algo de codigo:

Código Delphi [-]
 ////////////////////////////////////////////////////////////////////////////////////
 //En este formulario tengo el TQuictReport//
 procedure TProdVend.QRep1Preview(Sender: TObject);
 begin
   with Form3 do
   begin
     QRPrev.QRPrinter := TQRPrinter(Sender); //Mostrar el texto correspondiente
     sePage.Value := QRPrev.QRPrinter.PageNumber; //Inicializar valores
     QRPrev.PageNumber:=sePage.Value;
     sePage.Value := 1;
     sePage.MinValue := 1;
     sePage.MaxValue := QRPrev.QRPrinter.PageCount;
     QRPrev.Zoom := 100;
     ZoomTo100.Down := True;
     spZoom.Value := 100;
     form3.Caption:= 'MOVIMIENTOS DIARIOS';
     form3.StBar.Panels[2].Text := 'Nombre : ' + 'MOVIMIENTOS DIARIOS';
     Show;
     Qrep1.QRPrinter.PageCount;
   end;
 end;
 ////////////////////////////////////////////////////////////////////////////////
 //En este formulario tengo el TQRPreview//
 procedure TForm3.QRPrevPageAvailable(Sender: TObject; PageNum: Integer);
 begin
   sePage.MaxValue := PageNum; //Ajustar el contador y la
   StBar.Panels[0].Text := 'Pag. 1/' + IntToStr(PageNum); //barra de tareas
   MaxPag := PageNum;
 end;
 ///////////////////////////////////////////////////////////////////
 procedure TForm3.sePageChange(Sender: TObject);
 begin
   QRPrev.PageNumber := sePage.Value;
   StBar.Panels[0].Text := 'Pag. ' + IntToStr(sePage.Value) + '/' + IntToStr(MaxPag);
 end;
 ////////////////////////////////////////////////////////
 procedure TForm3.sbFirstPageClick(Sender: TObject);
 begin
   sePage.Value := 1;
 end;
 //////////////////////////////////////////////////////////
 procedure TForm3.sbNextPageClick(Sender: TObject);
 begin
   if sePage.Value < QRPrev.QRPrinter.PageCount then
     sePage.Value := sePage.Value + 1;
 end;
 ///////////////////////////////////////////////////////////
 procedure TForm3.sbPreviousPageClick(Sender: TObject);
 begin
   if sePage.Value > 1 then
     sePage.Value := sePage.Value - 1;
 end;
 //////////////////////////////////////////////////////////////////////////
 procedure TForm3.sbLastPageClick(Sender: TObject);
 begin
   sePage.Value := QRPrev.QRPrinter.PageCount;
 end;
 //////////////////////////////////////////////////
 procedure TForm3.PrintSetupClick(Sender: TObject);
 begin
   with ProdVend.QRep1 do
   begin
     tag := -1;
     PrinterSetup;
     if tag = 0 then
       print;
   end;
 end;
 ////////////////////////////////////////////////////////////////////
 procedure TForm3.PrintClick(Sender: TObject);
 begin
   QRPrev.qrprinter.Print;
 end;
 ///////////////////////////////////////////////////////////////

[marcoszorrilla]

Pues DmVil es la referencia al DataModulo en donde se hallan las tablas, te he pegado todo el código de la llamada, aunque lo único que interesa es como se hace el prepare como se guarda el número de páginas en una variable y como se muestra luego en QuickReport.

Un Saludo.

[darkerbyte]

Hola.

Yo tambien estoy viendo como obtener el numero de paginas del reporte. Sin embargo la solución aqui presentada tiene una deficiencia. Primero tienes que llamar al procedimiento prepare() para luego obtener el numero de paginas.
Eso no es el problema el punto es q al hacer el previewmodal() Quick report automaticamente prepara el informe antes de presentar la previsualizacion. Por lo que tenemos un proceso repetido en la preparación del informe. En un reporte de muchas paginas afecta

[rfernandez]

Llevo muchos años con Quickreport, desde delphi 3.0, y os diré que, si no estoy equivocado, la única manera de conseguir el número de pàginas es haciendo el .Prepare tal y como antes os han comentado.

Es una de las deficiencias que tiene QuickReport vs otras herramientas de impresión.

Saludos,