sap 获取设置的打印机参数

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_PRINT_PARAM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_LS_CONTROL_PARAM  text
*      <--P_LS_COMPOSER_PARAM  text
*----------------------------------------------------------------------*
form frm_set_print_param  changing pv_control_param type ssfctrlop
                                   pv_composer_param type ssfcompop.

  data: ls_itcpo     type itcpo.
  data: lv_repid     type sy-repid.
  data: lv_device    type tddevice.
  data: l_retcode    type sysubrc.

  if g_xscreen = space.

    lv_repid = sy-repid.

    call function 'WFMC_PREPARE_SMART_FORM'
      exporting
        pi_nast       = nast
        pi_repid      = lv_repid
      importing
        pe_returncode = l_retcode
        pe_itcpo      = ls_itcpo
        pe_device     = lv_device.

    if l_retcode = 0.
      move-corresponding ls_itcpo to pv_composer_param.
      pv_composer_param-tdnewid    = abap_true.
      pv_control_param-device      = lv_device.
      pv_control_param-no_dialog   = abap_true.
      pv_control_param-preview     = g_xscreen.
      pv_control_param-getotf      = ls_itcpo-tdgetotf.
      pv_control_param-langu       = nast-spras.
*      pv_composer_param-tdcopies   = nast-anzal.
    endif.

  else.

    pv_composer_param-tdnewid    = abap_true.
    pv_composer_param-tddest     = nast-ldest.
    pv_control_param-device      = 'PRINTER'.
    pv_control_param-no_dialog   = abap_true.
    pv_control_param-preview     = g_xscreen.
    pv_control_param-langu       = sy-langu.

  endif.

endform.