通过SMATFORMS打印程序的参考模板详解编程语言

CONSTANTS: c_lable_smartforms TYPE tdsfname VALUE 'ZCUSTOMER'.  "标签smartforms 
DATA: wa_control_parameters LIKE ssfctrlop, 
     wa_options TYPE ssfcompop, 
     wa_job_output_info TYPE ssfcrescl, 
     m_name TYPE rs38l_fnam. 
 
DATA: w_job_output_options TYPE ssfcresop. 
DATA: ls_zwmt018head TYPE zwmt018head, 
      ls_zwmt018item TYPE zwmt018item. 
DATA: ls_print TYPE zcustomer_print. 
CLEAR ls_print. 
***对传入结构字段进行赋值 
  
CLEAR wa_control_parameters. 
CLEAR wa_options. 
CLEAR wa_job_output_info. 
 
wa_control_parameters-no_open  = 'X'. 
wa_control_parameters-no_close = 'X'. 
wa_control_parameters-langu    = sy-langu. 
*wa_control_parameters-no_dialog = 'X'."取消弹出窗口 
*wa_control_parameters-preview = 'X'."显示打印预览 
****** 
wa_options-tddest     = 'LP01'."默认打印机 
wa_options-rqposname = 'BTP'.  " 清单打印机-系统默认打印机 
wa_options-tdimmed    = 'X'. " 立即打印 
wa_options-tddelete   = 'X'."打印后删除 
*wa_options-tdnoprev   = 'X'.是否有打印预览按钮 
 
CALL FUNCTION 'SSF_OPEN' 
  EXPORTING 
    user_settings      = '' 
    output_options     = wa_options 
    control_parameters = wa_control_parameters 
  IMPORTING 
    job_output_options = w_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. 
  EXIT. 
ENDIF. 
 
CLEAR m_name. 
*smartform打印 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' 
  EXPORTING 
    formname           = c_lable_smartforms 
    variant            = ' ' 
    direct_call        = ' ' 
  IMPORTING 
    fm_name            = m_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. 
*smartform打印 
CALL FUNCTION m_name 
  EXPORTING 
    control_parameters = wa_control_parameters 
    ih_print           = ls_print 
  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. 
*    EXIT. 
 
CALL FUNCTION 'SSF_CLOSE' 
*    IMPORTING 
*      job_output_info  = wa_job_output_info 
 
  EXCEPTIONS 
    formatting_error = 1 
    internal_error   = 2 
    send_error       = 3 
    OTHERS           = 4. 
IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 
*&---------------------------------------------------------------------* 
* 标记打印标识,当点击打印预览的时候不标记 
*----------------------------------------------------------------------* 
IF w_job_output_options-tdpreview <>'X'. 
  "当点击打印时的执行 
 
ENDIF.