Printing page numbers in report

Question

hi,
I want to print the page numbers in report in a format
of PAGE 1 OF 10
   PAGE 2 OF 10....
can anybody help me in this
thanks in advance.
neha.

Answer 1

Hi Neha,
  Similar question was posted earlier by someone..
It will help you.
       line-size 80
       line-count 65(1)
       no standard page heading.
data: imara type table of mara with header line.
selection-screen begin of block b1 with frame title text-001 .
parameters: p_check type c.
selection-screen end of block b1.
start-of-selection.
  perform get_data.
  perform write_report.
end-of-page.
  perform end_of_page.
FORM GET_DATA
form get_data.
  select * into corresponding fields of table imara
        from mara up to 315 rows.
endform.
FORM WRITE_REPORT
form write_report.
  data: xpage(4) type c.
  data: lines_left type i.
  loop at imara.
    write:/ imara-matnr.
    at last.
      if sy-linno < 64.
        lines_left = ( sy-linct - sy-linno ) - 1.
          skip lines_left.
          sy-pagno = sy-pagno - 1.
      elseif sy-linno = 64.
      skip 1.
       sy-pagno = sy-pagno - 1.
      endif.
    endat.
  endloop.
  write sy-pagno to xpage left-justified.
  do sy-pagno times.
    read line 65 of page sy-index.
    replace '****' with xpage into sy-lisel.
    modify current line.
  enddo.
endform.
Form  end_of_page
form end_of_page.
  write:/32 'Test Program',
        at 62 'Page:', at 67 sy-pagno, 'of', '****'.
endform.
Regards,
Sailaja.