sap smartforms打印窗口不弹出打印确认对话框直接默认打印

阿尔哦覅和

　　FORM PRINT .
  DATA: T_CONTROL_PARAMETERS TYPE SSFCTRLOP,
       T_OUTPUT_OPTIONS TYPE SSFCOMPOP.
    SELECT SINGLE * FROM Z3EVDIN INTO CORRESPONDING FIELDS OF WA_Z3EPSCV
            WHERE Z3ICID = WA_Z3ECCV-Z3ICID.
     WA_Z3EPSCV-Z3CCVN   = WA_Z3ECCV-Z3CCVN.
     WA_Z3EPSCV-Z3SUNU   = WA_Z3ECCV-Z3SUNU.
     WA_Z3EPSCV-Z3COKI   = WA_Z3ECCV-Z3COKI.
     WA_Z3EPSCV-Z3TRLI   = WA_Z3ECCV-Z3TRLI.
     WA_Z3EPSCV-Z3ICID   = WA_Z3ECCV-Z3ICID.
     WA_Z3EPSCV-Z3WETI   = WA_Z3ECCV-Z3WETI.
     WA_Z3EPSCV-Z3WEDA = WA_Z3ECCV-Z3WEDA.
     WA_Z3EPSCV-Z3CRUS = WA_Z3ECCV-Z3CRUS.
     WA_Z3EPSCV-Z3PONU = WA_Z3ECCV-Z3PONU.
     WA_Z3EPSCV-Z3WERK = WA_Z3ECCV-Z3WERK.
    SELECT SINGLE Z3NAME1 FROM Z3T001W INTO
     WA_Z3EPSCV-Z3NAME1 WHERE Z3WERK = WA_Z3ECCV-Z3WERK.
    SELECT SINGLE Z3SUNA FROM Z3ASI INTO
     WA_Z3EPSCV-Z3SUNA WHERE Z3SUNU = WA_Z3ECCV-Z3SUNU.
    CLEAR:T_CONTROL_PARAMETERS,T_OUTPUT_OPTIONS.
*
     T_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
     T_OUTPUT_OPTIONS-TDNEWID = 'X'.    "New Spool
     T_OUTPUT_OPTIONS-TDIMMED = 'X'.
     T_OUTPUT_OPTIONS-TDDELETE = 'X'.    "Delete Spool After Print
     T_OUTPUT_OPTIONS-TDFINAL = 'X'.
     T_OUTPUT_OPTIONS-TDIEXIT = 'X'.    "Exit after printing in print preview
     T_OUTPUT_OPTIONS-TDDEST = 'LP01'.

    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
         FORMNAME                  = 'Z3003PCD'
*          VARIANT                   = ' '
*          DIRECT_CALL               = ' '
     IMPORTING
        FM_NAME                   = fm_name
      EXCEPTIONS
        NO_FORM                   = 1
        NO_FUNCTION_MODULE        = 2
       OTHERS                    = 3
               .
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    CALL FUNCTION fm_name
      EXPORTING
*        ARCHIVE_INDEX               =
*        ARCHIVE_INDEX_TAB           =
*        ARCHIVE_PARAMETERS          =
        CONTROL_PARAMETERS          = T_CONTROL_PARAMETERS "设置不显示打印确认对话框
*        MAIL_APPL_OBJ               =
*        MAIL_RECIPIENT              =
*        MAIL_SENDER                 =
        OUTPUT_OPTIONS              = T_OUTPUT_OPTIONS "默认打印选项设置传输
       USER_SETTINGS               = 'X'
         I_Z3ESCV                    =   WA_Z3EPSCV
*      IMPORTING
*        DOCUMENT_OUTPUT_INFO        =
*        JOB_OUTPUT_INFO             =
*        JOB_OUTPUT_OPTIONS          =
     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.
    ENDIF.
    CLEAR WA_Z3EPSCV.
    CLEAR WA_Z3ECCV.
  ENDFORM.