Smart Form不弹出假脱机设置界面直接打印预览

时间：2024-04-07 10:53:45
Smart Form主要通过SSFCTRLOP和SSFCOMPOP两个参数来配置打印控制的。
Smart Form不弹出假脱机设置界面直接打印预览 

下面是一段实施代码：
  1. DATA: ctrl_param TYPE ssfctrlop,
  2.       out_option TYPE ssfcompop,
  3.       fm_name    TYPE rs38l_fnam.

  5. *控制默认打印机隐藏预览功能
  6. out_option-tddest = 'LP01'.        "指定默认打印机名，一般为四位字符
  7. out_option-tdnoprev = 'X'.        "隐藏报表预览功能，默认为空
  8. out_option-tdimmed = 'X'.                "是否勾选快速打印项
  9. out_option-tdarmod = 1.                "确认本地设置是否有效，必选项
  10. *不显示对话框直接预览
  11. ctrl_param-preview = 'X'.
  12. ctrl_param-no_Dialog = 'X'.
  13. CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  14.   EXPORTING
  15.     formname           = 'Z_TESTJSW' "Smart Form名称
  16.   IMPORTING
  17.     fm_name            = fm_name
  18.   EXCEPTIONS
  19.     no_form            = 1
  20.     no_function_module = 2
  21.     OTHERS             = 3.
  22. IF sy-subrc <> 0.
  23.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  24.   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  25. ENDIF.
  26. CALL FUNCTION fm_name
  27.   EXPORTING
  28.     control_parameters = ctrl_param
  29.     output_options     = out_option
  30.     user_settings      = space
  31. *  TABLES
  32. *   itab               = itab[]
  33.   EXCEPTIONS
  34.     OTHERS             = 1.
复制代码


一次性输出多张报表：
有些时候可能需要一次性打印多张内容不同的报表，直接调用SmartForms时，可能每次调用后都会执行一次打印操作，会在循环中反复出现打印对话框，影响程序执行效率。SAP打印控制了假脱机功能，允许将多张表先缓存，最后一次性提交打印请求。
实现假脱机控制控制主要通过SmartForms函数的CONTROL_PARAMETERS接口的NO_OPEN、NO_CLOSE两个参数来控制。

如果我们在项目实战中需要打印多个请求，则直接用下面的perform

  1. FORM SHOWFORM.

  3.   DATA: W_SFNAME TYPE RS38L_FNAM.
  4.   DATA: LS_CONTROL_PARAM TYPE SSFCTRLOP .
  5.   DATA: LS_COMPOSER_PARAM TYPE SSFCOMPOP .
  6.   DATA: OUTOPT TYPE SSFCRESOP.
  7.   DATA: I_JOB_OUTPUT_INFO TYPE SSFCRESCL.

  9.   LS_CONTROL_PARAM-LANGU = '1'.  "1:CHINESE
  10.   LS_CONTROL_PARAM-NO_OPEN = 'X'.
  11.   LS_CONTROL_PARAM-NO_CLOSE = 'X'.

  13.   CALL FUNCTION 'SSF_OPEN' “调用SSF_OPEN函数设置打印机,打开输出请求
  14.     EXPORTING
  15.       CONTROL_PARAMETERS = LS_CONTROL_PARAM
  16.       OUTPUT_OPTIONS     = LS_COMPOSER_PARAM
  17.     IMPORTING
  18.       JOB_OUTPUT_OPTIONS = OUTOPT
  19.     EXCEPTIONS
  20.       FORMATTING_ERROR   = 1
  21.       INTERNAL_ERROR     = 2
  22.       SEND_ERROR         = 3
  23.       USER_CANCELED      = 4
  24.       OTHERS             = 5.

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

  32.   IF SY-SUBRC <> 0.
  33. * Implement suitable error handling here
  34.   ENDIF.

  36.   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  37.     EXPORTING
  38.       FORMNAME           = 'ZMMF0009'
  39.     IMPORTING
  40.       FM_NAME            = W_SFNAME
  41.     EXCEPTIONS
  42.       NO_FORM            = 1
  43.       NO_FUNCTION_MODULE = 2
  44.       OTHERS             = 3.

  46.   LOOP AT GT_DATA INTO GS_DATA.
  47.     CALL FUNCTION W_SFNAME    " '/1BCDWB/SF00000322'
  48.       EXPORTING
  49.               CONTROL_PARAMETERS = LS_CONTROL_PARAM
  50.         OUTPUT_OPTIONS     = LS_COMPOSER_PARAM
  51.         WA_HEADER              = GS_DATA-HEADER
  52.       TABLES
  53.         IT_ITEM                    = GS_DATA-ITEMS
  54.       EXCEPTIONS
  55.         FORMATTING_ERROR           = 1
  56.         INTERNAL_ERROR             = 2
  57.         SEND_ERROR                 = 3
  58.         USER_CANCELED              = 4
  59.         OTHERS                     = 5.
  60.     IF SY-SUBRC <> 0.
  61.       LEAVE TO LIST-PROCESSING.
  62.     ENDIF.
  63.   ENDLOOP.

  65.   CALL FUNCTION 'SSF_CLOSE' “关闭打印机
  66.     IMPORTING
  67.       JOB_OUTPUT_INFO  = I_JOB_OUTPUT_INFO
  68.     EXCEPTIONS
  69.       FORMATTING_ERROR = 1
  70.       INTERNAL_ERROR   = 2
  71.       SEND_ERROR       = 3
  72.       OTHERS           = 4.
  73.   IF SY-SUBRC <> 0.
  74.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  75.     WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  76.   ENDIF.

  78. ENDFORM.                    " SHOWFORM
复制代码

相关文章