如何印出 [ 頁次/總頁數 ] 的樣式呢?
在每一頁的表頭上,總頁數先用特別的字串代表,特別的字串必須不會與其他的字串重複,以免後面要取代時會有失誤。
假設表頭總頁數的代表字串是 '----' ,取代的程式如下,在列印工作完成之後:
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.
沒有留言:
張貼留言