2011年4月8日 星期五

[Code] Abap list Total Pages

如何印出 [ 頁次/總頁數 ] 的樣式呢?
在每一頁的表頭上,總頁數先用特別的字串代表,特別的字串必須不會與其他的字串重複,以免後面要取代時會有失誤。
假設表頭總頁數的代表字串是 '----' ,取代的程式如下,在列印工作完成之後:
   WRITE SY-PAGNO TO TO_PAGE LEFT-JUSTIFIED.
   DO SY-PAGNO TIMES.
      READ LINE 3 OF PAGE SY-INDEX.
      REPLACE '----' WITH TO_PAGE INTO SY-LISEL.
      MODIFY CURRENT LINE.
   ENDDO.