|
Muchas gracias a todos por su ayuda.
Dejo lo que hice por si alguien tiene la misma inquietud.
Lo que hice fue crear un Status GUI donde coloque el pulsador de impresión, luego cree dos rutinas
En esta subutina utilizo el Status GUI que cree, en este caso 'ALV'.
FORM pf_status_set USING gt_extab TYPE slis_t_extab.
SET PF-STATUS 'ALV'.
ENDFORM.
Luego esta subrutina es donde valido el evento de impresión como ven dice que cuando presione el pulsador de impirmir que cree valla a la subrutina de impresion
FORM user_command USING f_ucomm LIKE sy-ucomm
i_selfield TYPE slis_selfield.
CASE f_ucomm.
WHEN 'IMPR'.
PERFORM impresion.
ENDCASE.
ENDFORM.
Luego en la rutina donde llamo el ALV agrego los parametros i_callback_user_command donde llamo la rutina USER_COMMAND y i_callback_pf_status_set donde llamo la rutina PF_STATUS_SET
FORM llamar_funcion TABLES pt_fieldcat TYPE slis_t_fieldcat_alv
pt_sort TYPE slis_t_sortinfo_alv
pt_event TYPE slis_t_event
USING x_layout .
*
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' "12-07-2011
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
* is_layout_lvc = gd_layout
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'PF_STATUS_SET'
is_layout = x_layout
it_fieldcat = pt_fieldcat[]
it_sort = pt_sort[]
it_events = pt_event[]
TABLES
t_outtab = t_salida
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
|