Send Report output to spool

Question

Hi,
     i developed one report.My Requirement is i have to send that report output to spool and aswell as i have to display the output in the output screen.At present i am using GET_PRINT_PARAMETERS function module.
Regards,
Kiran Kumar.G.A

Answer 1

Hi
FORM GET_PRINTER_PARAMETERS .
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
     DESTINATION            = GV_SPLD
     COPIES                 = 1
      LIST_NAME              = 'TEST'
     LIST_TEXT              = 'Test NEW-PAGE PRINT ON'
     IMMEDIATELY            = ' '
     RELEASE                = ' '
     NEW_LIST_ID            = 'X'
     EXPIRATION             = DAYS
     LINE_SIZE              = 255
     LINE_COUNT             = 65
     LAYOUT                 = 'Y_PAPER'
     SAP_COVER_PAGE         = 'X'
     RECEIVER               = 'SAP*'
     DEPARTMENT             = 'System'
     SAP_OBJECT             = 'RS'
     AR_OBJECT              = 'TEST'
     ARCHIVE_ID             = 'XX'
     ARCHIVE_INFO           = 'III'
     ARCHIVE_TEXT           = 'Description'
      NO_DIALOG              = 'X'
    IMPORTING
      OUT_PARAMETERS         = PARAMS
      OUT_ARCHIVE_PARAMETERS = ARPARAMS
      VALID                  = VALID.
  NEW-PAGE PRINT ON
  NEW-SECTION
  PARAMETERS PARAMS
  ARCHIVE PARAMETERS ARPARAMS
  NO DIALOG.
  LOOP AT GT_FINAL_ABAP_TABLE INTO GS_FINAL_ABAP_TABLE.
*To print each ABAP spool in new page
    IF GS_FINAL_ABAP_TABLE = 'NEW-PAGE'.
      NEW-PAGE.
    ENDIF.
    IF GS_FINAL_ABAP_TABLE <> 'NEW-PAGE'.
      WRITE / GS_FINAL_ABAP_TABLE.
    ENDIF.
  ENDLOOP .
  NEW-PAGE PRINT OFF .
  SELECT  RQIDENT
          RQCLIENT
          RQO1NAME
  INTO    TABLE GT_TSP01
  FROM    TSP01
  WHERE   RQOWNER = SY-UNAME
  AND     RQ2NAME = 'TEST' .
  IF SY-SUBRC = 0 .
    SORT GT_TSP01 BY RQIDENT DESCENDING.
    READ TABLE GT_TSP01 INTO GS_TSP01 INDEX 1.
    FREE GT_TSP01.
  ENDIF
Reward if useful
narendra