topic Type 1 report program - printing total pages. in Application Development and Automation Discussions

Type 1 report program - printing total pages.

Former Member — Mon, 14 Jul 2008 14:41:14 GMT

Hi fellow ABAPers,

I am working on Type 1 report program. I want to print the total no of pages Eg: Page : 1 / 10, Page : 2 / 10 .... so on and so forth .

I am getting the page no. from sy-pagno but am unable to derive the total pages for the report, i.e. 10 in the above example.

Kindly assist in deriving the total pages.

Thanks and regards.

Re: Type 1 report program - printing total pages.

Former Member — Mon, 14 Jul 2008 14:49:37 GMT

I am assuming that u r working with classical report.

Pl. check this sample code:

REPORT ZLTEST3 NO STANDARD PAGE HEADING

LINE-COUNT 65

LINE-SIZE 80.

DATA: NUM_PAGES_C(10) TYPE C.

PERFORM WRITE.

PERFORM GET_TOTAL_PAGENO.

TOP-OF-PAGE.

WRITE:/(SY-LINCT) 'TEST - TEST' CENTERED.

WRITE: / SY-DATUM, 60 SY-PAGNO,'of', '*****'.

SKIP.

&----

*& Form WRITE

&----

text *

----

--> p1 text
<-- p2 text

----

FORM WRITE.

DO 200 TIMES.

WRITE:/ 'TEST', SY-LINNO.

ENDDO.

ENDFORM. " WRITE

&----

*& Form GET_TOTAL_PAGENO

&----

text *

----

--> p1 text
<-- p2 text

----

FORM GET_TOTAL_PAGENO.

WRITE SY-PAGNO TO NUM_PAGES_C LEFT-JUSTIFIED.

DO SY-PAGNO TIMES.

READ LINE 2 OF PAGE SY-INDEX.

REPLACE '***' WITH NUM_PAGES_C INTO SY-LISEL.

MODIFY LINE 2 OF PAGE SY-INDEX.

ENDDO.

ENDFORM. " GET_TOTAL_PAGENO

This technique only works with foreground, in background it will not work.

Regards,

JOy.

Re: Type 1 report program - printing total pages.

Former Member — Mon, 14 Jul 2008 14:52:32 GMT

Hi,

Check this link:

http://abapreports.blogspot.com/2008/06/total-pages-of-abap-report-output.html

Regards

Adil

Re: Type 1 report program - printing total pages.

Former Member — Mon, 19 Jan 2009 12:41:54 GMT