Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7188838
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2009-03-08 22:09:41

 
*&---------------------------------------------------------------------*
*&      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.
阅读(3067) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~