The event PRINT_END_OF_PAGEnot work

Question

In my alv report the event PRINT_END_OF_PAGE not work. Thisis my code:
REPORT ZDEMO_ALVGRID2_SEMIAUTOMATIC.
*-- Global data definitions for ALV
*--- ALV Grid instance reference
DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid.
*--- Name of the custom control added on the screen
DATA gc_custom_control_name TYPE scrfname VALUE 'CC_ALV'.
*--- Custom container instance reference
DATA gr_ccontainer TYPE REF TO cl_gui_custom_container.
*--- Field catalog table
DATA gt_fieldcat TYPE lvc_t_fcat.
*--- Layout structure
DATA gs_layout TYPE lvc_s_layo.
*--- Internal table holding list data
DATA BEGIN OF gt_list OCCURS 0.
        INCLUDE STRUCTURE SFLIGHT.
        DATA field1(1).
   --In further sections, some additional fields will added here
   --for some functionality
DATA END OF gt_list.
*---Printing structure
DATA gs_print TYPE lvc_s_prnt.
gs_print-grpchgedit = 'X'.
gs_print-no_colwopt = 'X'.
gs_print-prntlstinf = 'X'.
gs_print-prnt_title = 3.
gs_print-reservelns = 2.
CALL SCREEN '0100'.
CLASS events DEFINITION                                              *
This class contains the methods responding to                        *
event PRINT_TOP_OF_PAGE                                              *
of the ALV Grid Controls                                             *
CLASS events DEFINITION.
  PUBLIC SECTION.
    METHODS:
                 print_top_of_page
                 FOR EVENT PRINT_TOP_OF_PAGE OF
                 cl_gui_alv_grid,
                 print_end_of_page
                 FOR EVENT PRINT_END_OF_PAGE OF
                 cl_gui_alv_grid.
ENDCLASS.
CLASS events IMPLEMENTATION                                          *
CLASS events IMPLEMENTATION.
  METHOD print_top_of_page.
    WRITE: / 'Grid Title after event PRIN_TOP_OF_PAGE parameter'.
    WRITE: ' gs_print-prnt_title = 3.'.
  ENDMETHOD.
  METHOD print_end_of_page.
    WRITE: 'The event PRINT_END_OF_PAGE has 2 rows reserved'.
  ENDMETHOD.
ENDCLASS.
DATA mlistener TYPE REF TO events.
MODULE display_alv OUTPUT
MODULE display_alv OUTPUT.
  PERFORM get_selection.
  PERFORM display_alv.
ENDMODULE.                    "display_alv OUTPUT
*&      Form  display_alv
      text
FORM display_alv.
  IF gr_alvgrid IS INITIAL.
  ----Creating custom container instance
    CREATE OBJECT gr_ccontainer
      EXPORTING
        container_name = gc_custom_control_name
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        others                      = 6.
    IF sy-subrc <> 0.
    --Exception handling
    ENDIF.
  ----Creating ALV Grid instance
    CREATE OBJECT gr_alvgrid
      EXPORTING
        i_parent          = gr_ccontainer
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        others            = 5.
    IF sy-subrc <> 0.
    --Exception handling
    ENDIF.
  ----Preparing field catalog.
    PERFORM prepare_field_catalog CHANGING gt_fieldcat.
  ----Preparing layout structure
    PERFORM prepare_layout CHANGING gs_layout.
  ----Here will be additional preparations
  --e.g. initial sorting criteria, initial filtering criteria,
  --excluding functions
    CALL METHOD gr_alvgrid->set_table_for_first_display
      EXPORTING
        I_BUFFER_ACTIVE               = 'X'
      I_CONSISTENCY_CHECK           =
      I_STRUCTURE_NAME              = 'SFLIGHT'
      IS_VARIANT                    = <structure of type DISVARIANT>
      I_SAVE                        = 'A'
      I_DEFAULT                     = 'X'
        is_layout                     = gs_layout
        IS_PRINT                      = gs_print
       IT_SPECIAL_GROUPS             = i_fgroup
      IT_TOOLBAR_EXCLUDING          = <internal table of type
                                      UI_FUNCTIONS >
      IT_HYPERLINK                  = <internal table of type
                                      LVC_T_HYPE>
      IT_ALV_GRAPHICS               = <internal table of type DTC_T_TC
      CHANGING
        it_outtab                     = gt_list[]
        it_fieldcatalog               = gt_fieldcat
      IT_SORT                       = Ver en reporte ZRESD001
      IT_FILTER                     =
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc <> 0.
    --Exception handling
    ENDIF.
    CREATE OBJECT mlistener.
    SET HANDLER mlistener->print_top_of_page FOR gr_alvgrid.
    SET HANDLER mlistener->print_end_of_page FOR gr_alvgrid.
  ELSE.
    CALL METHOD gr_alvgrid->refresh_table_display
    EXPORTING
      IS_STABLE      = <structure of type LVC_S_STBL >
      I_SOFT_REFRESH = <variable of type CHAR01>
    EXCEPTIONS
      finished = 1
      OTHERS   = 2.
    IF sy-subrc <> 0.
    --Exception handling
    ENDIF.
  ENDIF.
ENDFORM.                    "display_alv
Extracts the necessary info for the layout
FORM get_selection.
  SELECT *
  INTO   gt_list
  FROM   SFLIGHT.
    APPEND gt_list.
    CLEAR  gt_list.
  ENDSELECT.
ENDFORM.                    "get_selection
Preparing field catalog manually
FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat.
  DATA ls_fcat type lvc_s_fcat.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
          i_structure_name = 'SFLIGHT'
      CHANGING
          ct_fieldcat = pt_fieldcat[]
      EXCEPTIONS
          inconsistent_interface = 1
          program_error          = 2
          OTHERS                 = 3.
  IF sy-subrc <> 0.
Exception handling
  ENDIF.
  LOOP AT pt_fieldcat INTO ls_fcat.
      CASE ls_fcat-fieldname.
          WHEN 'CARRID'.
              ls_fcat-outputlen = '10'.
              ls_fcat-coltext   = 'Airline Carrier ID'.
              MODIFY pt_fieldcat FROM ls_fcat.
          WHEN 'PAYMENTSUM'.
              ls_fcat-no_out    = 'X'.
              MODIFY pt_fieldcat FROM ls_fcat.
      ENDCASE.
  ENDLOOP.
  CLEAR ls_fcat.
  ls_fcat-fieldname = 'FIELD1'.
  ls_fcat-coltext = 'Field 1'.
  ls_fcat-col_pos = 20.
  APPEND ls_fcat to pt_fieldcat.
ENDFORM.                    "prepare_field_catalog
Filling layout structure
FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.
  ps_layout-zebra = 'X'.
  ps_layout-grid_title = 'Flights'.
  ps_layout-smalltitle = 'X'.
in the print my event PRINT_END_OF_PAGE does not have effect. How can i make to work this alv effect?
Thanks

Answer 1

Hello,
To print end_of_page please check whether you are
doing or not.
*===============================================================
* LOCAL CLASSES: Definition
*===============================================================
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
* § 2. Define a method for each print event you need.
    METHODS:
     handle_top_of_page
        FOR EVENT print_top_of_page OF cl_gui_alv_grid,
  handle_end_of_list
        FOR EVENT print_end_of_list OF cl_gui_alv_grid.
  PRIVATE SECTION.
ENDCLASS.
* LOCAL CLASSES: Implementation
*===============================================================
* class c_event_receiver (Implementation)
CLASS lcl_event_receiver IMPLEMENTATION.
*§ 3.Implement your event handler methods. Use WRITE to provide output
  METHOD handle_top_of_page.
*  Print Top-of-page
    PERFORM print_top_of_page.
  ENDMETHOD.                           "handle_top_of_page
ENDCLASS.
*&      Form  PRINT_TOP_OF_PAGE
*       To print top-of-page
FORM print_top_of_page.
* Report header
  write : 'Top-Of-Page'.
ENDFORM.                    " PRINT_TOP_OF_PAGE
* Registering events
    CREATE OBJECT dg_event_receiver.
       SET HANDLER dg_event_receiver->handle_top_of_page FOR dg_grid1.
Try this and let me know if you have any isues.
Thanks&Regards,
Siri.