Calculate total pages

[nageswaragunupudi]

Mr. Silvio

Please make only this one change in the report.prg:
In the Method Activate(), locate these lines:

Code: Select all  Expand view  RUN

     if !::lHaru .and. Empty( ::oDevice:cFile ) .and. !PrintQueue()
         Eval( ::bPreview, ::oDevice )
      else
         PrintEnd()
      endif

Delete all these lines and substitute only one line:

Code: Select all  Expand view  RUN

  PrintEnd()

Then test your code.

I tested with this code and it is working fine:
You may also try this code first as it is and then use it in your programs

Code: Select all  Expand view  RUN

function TestReport()

   local oRep, oFont
   local nLine := 0

   USE CUSTOMER NEW SHARED
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12

   REPORT oRep FONT oFont PREVIEW  ;
      TITLE "CUSTOMER" ;
      FOOTER FWString( "Page" ) + " : " + cValToChar( oRep:oDevice:nPage ) + "/" + ;
      oRep:oDevice:cLastPage ;
      CENTER

   COLUMN TITLE "LINE"   DATA nLine          FONT 1 SIZE 4
   COLUMN TITLE "NAME"   DATA FIELD->FIRST   FONT 1 SIZE 15
   COLUMN TITLE "SURNAME" DATA FIELD->LAST   FONT 1 RIGHT SIZE 15
   COLUMN TITLE "CITY"   DATA FIELD->CITY    FONT 1 CENTER SIZE 15
   COLUMN TITLE "STATE"  DATA FIELD->STATE   FONT 1 CENTER
   COLUMN TITLE "SALARY" DATA FIELD->SALARY  PICTURE "$ 9,999,999.99";
      FONT 1 TOTAL  SIZE 14

   ENDREPORT

   oRep:bInit        := { || nLine := 0 }
   oRep:bStartRecord := { || nLine++ }

   ACTIVATE REPORT oRep

   RELEASE FONT oFont

return nil

[nageswaragunupudi]

In XBrowse.prg
Please make this change in METHOD Report(...)
Replace these lines

Code: Select all  Expand view  RUN

  REPORT oRep TITLE cTitle ;
          FOOTER FWString( "Page" ) + " : " + cValToChar( oRep:nPage ) CENTER ;
          FONT oFont,oBold ;
          TO DEVICE oPrn
 

with

Code: Select all  Expand view  RUN

  REPORT oRep TITLE cTitle ;
          FOOTER FWString( "Page" ) + " : " + cValToChar( oPrn:nPage ) ;
               + "/" + oPrn:cLastPage CENTER ;
          FONT oFont,oBold ;
          TO DEVICE oPrn

[Silvio.Falconi]

thanks Rao
Would this also work if I use the browse setup?

example

oBrw:Report( cTitle, , , ;
{ |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aCampi ) } )

static function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields )
local cFooter := "Progetto Magazzino - "
local cTitle1 := "title row 1"
local cTitle2 := "title row 2"

local nTotalpages:= oRep:oDevice:cLastPage


oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina : "+Str(oRep:nPage,3)+"/"+(nTotalpages)} }, oRep, 2 )



I tried and run ok

thanks Rao