Print directly to the printer

Question

Hi Guys
Could anyone correct me how can I print directly to the printer from this program ,I am getting short dump error when I select the radio button printer and execute it.
Rgds
PE

Answer 1

oops sorry here it is below
REPORT  Z_ESLP_ZTCODE LINE-SIZE 132 .
*TABLES
TABLES : AGR_TCODES,
AGR_USERS,
TSTCT,
T16FW,
T16FD.
type-pools: slis.                                 "ALV Declarations
CONSTANTS MARK VALUE 'X'.
TYPES: BEGIN OF  T_DISP,
AGR_TCODES TYPE AGR_TCODES-TCODE ,             " Transaction code A
AGR_NAME   TYPE AGR_TCODES-AGR_NAME,           " Role Name B
AGR_UNAME  TYPE AGR_USERS-UNAME,               " Short User Name B
TTEXT      TYPE TSTCT-TTEXT,                   " Description Name C
TEXTC      TYPE USER_ADDR-NAME_TEXTC,          " Long User Name
SPRSL      TYPE TSTCT-SPRSL ,                  " Language c
TEL_EXTENS  TYPE USER_ADDR-TEL_EXTENS ,          " Extension
DEPARTMENT  TYPE USER_ADDR-DEPARTMENT  ,         " Department Name B
FRGGR      TYPE T16FW-FRGGR,
FRGCO      TYPE T16FD-FRGCO,
OBJID      TYPE T16FW-OBJID,
FRGCT      TYPE T16FD-FRGCT,
SPRAS      TYPE T16FD-SPRAS,
END OF t_disp.
DATA: it_disp TYPE STANDARD TABLE OF t_disp INITIAL SIZE 0,
      wa_disp TYPE t_disp.
DATA: params like pri_params,
    days(1) type n value 2,
    count(3) type n value 1,
    valid type c.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid,
      gt_events     type slis_t_event,
      gd_prntparams type slis_print_alv.
parameter: p_trigr type c default space.
SELECTION PARAMETER CRITERIA
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
P_TCODE FOR AGR_TCODES-TCODE  , "OBLIGATORY, "no-extension no intervals,
U_NAME FOR AGR_USERS-UNAME,
R_NAME FOR AGR_USERS-AGR_NAME .
SELECTION-SCREEN END OF BLOCK BLK1.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN END OF BLOCK BLK2.
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK radio WITH FRAME.
  PARAMETERS :
  scr   RADIOBUTTON GROUP rbg1 ,
              Pr   RADIOBUTTON GROUP rbg1 .
  SELECTION-SCREEN END OF BLOCK radio.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*&      Form  BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
  fieldcatalog-fieldname   = 'AGR_UNAME'.
  fieldcatalog-seltext_m   = 'User'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  fieldcatalog-emphasize   = 'X'.
  fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'TEXTC'.
  fieldcatalog-seltext_m   = 'Name'.
  fieldcatalog-outputlen   = 60.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'AGR_NAME'.
  fieldcatalog-seltext_m   = 'Role Name'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 2.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'AGR_TCODES'.
  fieldcatalog-seltext_m   = 'Trans Code'.
  fieldcatalog-col_pos     = 3.
  fieldcatalog-outputlen   = 20.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'TTEXT'.
  fieldcatalog-seltext_m   = 'Description'.
  fieldcatalog-outputlen   = 70.
  fieldcatalog-col_pos     = 4.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT  PRINTER SETUP
      PRINTER SETUP
form printer_setup.
  DATA:L_PARAMS TYPE PRI_PARAMS,
       L_VALID TYPE C.
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
         IMMEDIATELY                  = ' '
       LINE_SIZE                    = 220
       RELEASE                      = 'X'
         MODE                         = 'CURRENT'
         NO_DIALOG                    = ' '
       IMPORTING
    OUT_ARCHIVE_PARAMETERS       =
         OUT_PARAMETERS               = L_PARAMS
         VALID                        = L_VALID
       EXCEPTIONS
         ARCHIVE_INFO_NOT_FOUND       = 1
         INVALID_PRINT_PARAMS         = 2
         INVALID_ARCHIVE_PARAMS       = 3
         OTHERS                       = 4.
      IF SY-SUBRC  eq 0.
      ENDIF.
"But it will take default printer from user settings
      NEW-PAGE PRINT ON   PARAMETERS L_PARAMS NO DIALOG.
       write : 'print is on'.
      NEW-PAGE PRINT OFF.
    DATA: PARAMS   LIKE PRI_PARAMS,
         ARPARAMS LIKE ARC_PARAMS,
         DAYS(1)  TYPE N VALUE 2,
         COUNT(3) TYPE N VALUE 1,
         VALID    TYPE C.
   CALL FUNCTION 'GET_PRINT_PARAMETERS'
         EXPORTING DESTINATION = 'LOCL'
               COPIES                 = COUNT
               LIST_NAME              = 'Z_ESLP_ZTCODE'
               LIST_TEXT              = 'SUBMIT ... TO SAP-SPOOL'
               IMMEDIATELY            = 'X'
               RELEASE                = 'X'
               NEW_LIST_ID            = 'X'
               EXPIRATION             = DAYS
               LINE_SIZE              = 79
               LINE_COUNT             = 120
               LAYOUT                 = 'X_44_120'
               SAP_COVER_PAGE         = 'X'
               COVER_PAGE             = 'X'
               RECEIVER               = 'SAP*'
               DEPARTMENT             = 'System'
               SAP_OBJECT             = 'RS'
               AR_OBJECT              = 'TEST'
               ARCHIVE_ID             = 'XX'
               ARCHIVE_INFO           = 'III'
               ARCHIVE_TEXT           = 'Description'
               NO_DIALOG              = ' '
     IMPORTING OUT_PARAMETERS         = PARAMS
               OUT_ARCHIVE_PARAMETERS = ARPARAMS
               VALID                  = VALID.
   IF VALID <> SPACE.
     SUBMIT RSTEST00 TO SAP-SPOOL
       SPOOL PARAMETERS PARAMS
       ARCHIVE PARAMETERS ARPARAMS
       WITHOUT SPOOL DYNPRO.
   ENDIF.
endform.                    " BUILD_LAYOUT
*&      Form  BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
            i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
            it_events               = gt_events
            is_print                = gd_prntparams
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = it_disp
       exceptions
            program_error           = 1
            others                  = 2.
  if sy-subrc  EQ 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform.                    " DISPLAY_ALV_REPORT
*&      Form  DATA_RETRIEVAL
      Retrieve data form lfa1 table and populate itab it_lfa1
form data_retrieval.
CASE MARK.
     WHEN scr.
   SELECT AGR_TCODESTCODE AGR_TCODESAGR_NAME AGR_USERSUNAME TSTCTTTEXT USER_ADDR~NAME_TEXTC
  INTO TABLE IT_DISP
  FROM AGR_TCODES
  INNER JOIN AGR_USERS
  ON  AGR_TCODESAGR_NAME = AGR_USERSAGR_NAME
  INNER JOIN USER_ADDR
  ON AGR_USERSUNAME = USER_ADDRBNAME
  INNER JOIN TSTCT
  ON AGR_TCODESTCODE = TSTCTTCODE
  where
  agr_tcodes~tcode in p_tcode
  and
  agr_users~uname in u_name
  and
  agr_tcodes~agr_name in r_name
  and
  TSTCT~SPRSL EQ 'E'.
  WHEN pr.
perform printer_setup.
ENDCASE.
*lifnr
*between '0000100001' AND '0000150000'.
endform.                    " DATA_RETRIEVAL
Release memory no longer required.
free: it_lfa1 .
Form  TOP-OF-PAGE                                                 *
ALV Report Header                                                 *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
      wa_header type slis_listheader,
      t_line like wa_header-info,
      ld_lines type i,
      ld_linesc(10) type c.
Title
  wa_header-typ  = 'H'.
  wa_header-info = 'Transaction codes by User and Role Name ' .
  append wa_header to t_header.
  clear wa_header.
Date
  wa_header-typ  = 'S'.
  wa_header-key = 'Date: '.
  CONCATENATE  sy-datum+6(2) '.'
               sy-datum+4(2) '.'
               sy-datum(4) INTO wa_header-info.   "todays date
  append wa_header to t_header.
  clear: wa_header.
Total No. of Records Selected
  describe table it_disp lines ld_lines.
  ld_linesc = ld_lines.
  concatenate 'Total No. of Transaction Records Selected: ' ld_linesc
                    into t_line separated by space.
  wa_header-typ  = 'A'.
  wa_header-info = t_line.
  append wa_header to t_header.
  clear: wa_header, t_line.
  call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = t_header.
           i_logo             = 'Z_LOGO'.
endform.
      FORM USER_COMMAND                                          *
      --> R_UCOMM                                                *
      --> RS_SELFIELD                                            *
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
  Check field clicked on within ALVgrid report
    IF rs_selfield-fieldname = 'TCODES'.
    Read data table, using index of row user clicked on
      READ TABLE it_disp INTO wa_disp INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
     SET PARAMETER ID 'BES' FIELD wa_disp-tcode.
    Sxecute transaction zven, and skip initial data entry screen
     CALL TRANSACTION 'Z' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDCASE.
ENDFORM.
*&      Form  BUILD_EVENTS
      Build events table
form build_events.
  data: ls_event type slis_alv_event.
  call function 'REUSE_ALV_EVENTS_GET'
       exporting
            i_list_type = 0
       importing
            et_events   = gt_events[].
  read table gt_events with key name =  slis_ev_end_of_page
                           into ls_event.
  if sy-subrc = 0.
    move 'END_OF_PAGE' to ls_event-form.
    append ls_event to gt_events.
  endif.
    read table gt_events with key name =  slis_ev_end_of_list
                           into ls_event.
  if sy-subrc = 0.
    move 'END_OF_LIST' to ls_event-form.
    append ls_event to gt_events.
  endif.
endform.                    " BUILD_EVENTS
*&      Form  BUILD_PRINT_PARAMS
      Setup print parameters
form build_print_params.
  gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
  gd_prntparams-no_coverpage = 'X'.
endform.                    " BUILD_PRINT_PARAMS
*&      Form  END_OF_PAGE
form END_OF_PAGE.
  data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
  write: sy-uline(50).
  skip.
  write:/40 'Page:', sy-pagno .
endform.