打印选择一个单据行 相同的行打印出来

 SELFIELD-REFRESH = 'X'.
  CASE UCOMM.
    WHEN 'PRINT'.

      DATA IT_HEAD TYPE TABLE OF ZSDS006_H WITH HEADER LINE.
      DATA IT_ITEM TYPE TABLE OF ZSDS006_I WITH HEADER LINE.
      DATA WA_HEAD LIKE LINE OF IT_HEAD.
      DATA WA_ITEM LIKE LINE OF IT_ITEM.




      DATA: LS_CONTROL_PARAM TYPE SSFCTRLOP .   "打印参数"
      DATA: LS_COMPOSER_PARAM TYPE SSFCOMPOP .
      DATA: OUTOPT TYPE SSFCRESOP.
      DATA: FM_NAME TYPE RS38L_FNAM.
      DATA: I_JOB_OUTPUT_INFO TYPE SSFCRESCL.

      LS_CONTROL_PARAM-LANGU =  '1'.
      LS_CONTROL_PARAM-NO_OPEN = 'X'.
      LS_CONTROL_PARAM-NO_CLOSE = 'X'.
      LS_CONTROL_PARAM-NO_DIALOG = ''.
      LS_CONTROL_PARAM-PREVIEW = 'X'.

      CALL FUNCTION 'SSF_OPEN'
        EXPORTING
          CONTROL_PARAMETERS = LS_CONTROL_PARAM
*         OUTPUT_OPTIONS     = LS_COMPOSER_PARAM
        IMPORTING
          JOB_OUTPUT_OPTIONS = OUTOPT
        EXCEPTIONS
          FORMATTING_ERROR   = 1
          INTERNAL_ERROR     = 2
          SEND_ERROR         = 3
          USER_CANCELED      = 4
          OTHERS             = 5.

      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        EXIT.
      ENDIF.

      IF P_VBTYP = 'J'.
        CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
          EXPORTING
            FORMNAME           = 'ZSDS006_FORM'
*           VARIANT            = ' '
*           DIRECT_CALL        = ' '
          IMPORTING
            FM_NAME            = FM_NAME
          EXCEPTIONS
            NO_FORM            = 1
            NO_FUNCTION_MODULE = 2
            OTHERS             = 3.
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.

      ENDIF.

      IF P_VBTYP = 'T'.

        CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
          EXPORTING
            FORMNAME           = 'ZSDS006_FORM1'
*           VARIANT            = ' '
*           DIRECT_CALL        = ' '
          IMPORTING
            FM_NAME            = FM_NAME
          EXCEPTIONS
            NO_FORM            = 1
            NO_FUNCTION_MODULE = 2
            OTHERS             = 3.
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.
      ENDIF.

      LOOP AT IT_ALV2 INTO WA_ALV2 WHERE CBOX = 'X'.
        WA_HEAD-BUTXT = WA_ALV2-BUTXT.
        WA_HEAD-VBELN = WA_ALV2-VBELN.
        WA_HEAD-NAME1 = WA_ALV2-NAME1.
        WA_HEAD-WADAT = WA_ALV2-WADAT.
        WA_HEAD-ZHWMC = WA_ALV2-ZHWMC.

        APPEND WA_HEAD TO IT_HEAD.
      ENDLOOP.
      SORT IT_HEAD BY VBELN.
      DELETE ADJACENT DUPLICATES FROM IT_HEAD COMPARING VBELN.
      LOOP AT IT_HEAD INTO WA_HEAD.
        CLEAR WA_ITEM.
        CLEAR: IT_ITEM,IT_ITEM[].
        LOOP AT IT_ALV2 INTO WA_ALV2 WHERE VBELN = WA_HEAD-VBELN.



          WA_ITEM-NAME = WA_ALV2-NAME.
          WA_ITEM-ZBZGG = WA_ALV2-ZBZGG.
          WA_ITEM-LFIMG = WA_ALV2-LFIMG1.
          WA_ITEM-MEINS = WA_ALV2-MEINS.
          WA_ITEM-CHARG = WA_ALV2-CPPC.
          WA_ITEM-BZSL  = WA_ALV2-BZSL.
          WA_ITEM-WADAT = WA_ALV2-WADAT.
          WA_ITEM-VBTYP = WA_ALV2-VBTYP.

          APPEND WA_ITEM TO IT_ITEM.
        ENDLOOP.

        CALL FUNCTION FM_NAME
          EXPORTING
*           ARCHIVE_INDEX      =
*           ARCHIVE_INDEX_TAB  =
*           ARCHIVE_PARAMETERS =
            CONTROL_PARAMETERS = LS_CONTROL_PARAM
            WA_HEAD            = WA_HEAD
*           MAIL_APPL_OBJ      =
*           MAIL_RECIPIENT     =
*           MAIL_SENDER        =
            OUTPUT_OPTIONS     = LS_COMPOSER_PARAM
*           USER_SETTINGS      = 'X'
*         IMPORTING
*           DOCUMENT_OUTPUT_INFO       =
*           JOB_OUTPUT_INFO    =
*           JOB_OUTPUT_OPTIONS =
          TABLES
            IT_ITEM            = IT_ITEM
*          EXCEPTIONS
*           FORMATTING_ERROR   = 1
*           INTERNAL_ERROR     = 2
*           SEND_ERROR         = 3
*           USER_CANCELED      = 4
*           OTHERS             = 5
          .
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.

      ENDLOOP.
      CALL FUNCTION 'SSF_CLOSE'
        IMPORTING
          JOB_OUTPUT_INFO  = I_JOB_OUTPUT_INFO
        EXCEPTIONS
          FORMATTING_ERROR = 1
          INTERNAL_ERROR   = 2
          SEND_ERROR       = 3
          OTHERS           = 4.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.

  ENDCASE.