*&---------------------------------------------------------------------*
*& Form print_table_control_data
*&---------------------------------------------------------------------*
FORM print_tc .
DATA: repid LIKE sy-repid.
repid = sy-repid.
CALL FUNCTION 'FITRV_PRINT_TABLE_CONTROL_DATA'
EXPORTING
table_control = flights
callback_program = repid
callback_top_of_list = 'TOP_OF_LIST'
callback_top_of_page = 'TOP_OF_PAGE'
callback_end_of_page = 'END_OF_PAGE'
callback_end_of_list = 'END_OF_LIST'
optimize_column_width = 'X'
get_curr_quan_fields_from_ddic = 'X'
window_title = '测试'
TABLES
print_data = itab
EXCEPTIONS
column_information_missing = 1
printing_not_possible = 2
OTHERS = 3.
ENDFORM. " print_table_control_data
*&---------------------------------------------------------------------*
*& Form top_of_list
*&---------------------------------------------------------------------*
FORM top_of_list.
WRITE: / 'Top_of_list'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
FORM top_of_page.
WRITE: / 'Top_of_page'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form end_of_list
*&---------------------------------------------------------------------*
FORM end_of_list.
WRITE: / 'End_of_list'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form end_of_page
*&---------------------------------------------------------------------*
FORM end_of_page.
WRITE: / 'End_of_page'.
ENDFORM.
*END_OF_PAGE 不能触发,参考:
这个事件只是在除最后页的其它页触发
如果不想打印统计信息,可以修改函数FITRV_PRINT_TABLE_CONTROL_DATA,添加:
printcat-no_print_listinfos = xfield.
阅读(3064) | 评论(0) | 转发(0) |