SAP smartform转PDF

REPORT zlianjf_test.

DATA:control_parameters TYPE ssfctrlop,
        output_options TYPE ssfcompop,
        job_output_info TYPE ssfcrescl.
DATA: fm_name TYPE rs38l_fnam.
DATA: p_e_devtype TYPE rspoptype.
DATA: p_language  TYPE  sflangu.

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.
  PERFORM open_smartform USING 'ZTEST_SF'.
*转成PDF
  IF NOT job_output_info-otfdata[] IS INITIAL.
    PERFORM convert_2_pdf.
  ENDIF.

END-OF-SELECTION.

*&--------------------------------------------------------------------*
*&      Form  open_smartform
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->F_FORM     text
*---------------------------------------------------------------------*
FORM open_smartform USING f_form.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = f_form
    IMPORTING
      fm_name            = fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.

  p_language = sy-langu.
  CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
    EXPORTING
      i_language    = p_language
      i_application = 'SAPDEFAULT'
    IMPORTING
      e_devtype     = p_e_devtype.
*发email
*output_options-xsfcmode = 'X'.
*output_options-xsf = space.
*output_options-xdfcmode = 'X'.
*output_options-xdf = space.
*发email

*转PDF
  output_options-tdprinter = p_e_devtype.
  control_parameters-no_dialog = 'X'.
  control_parameters-getotf = 'X'.
*转PDF

*标准输出预览，不弹对话框
* output_options-TDDEST = 'LP01'.
* control_parameters-PREVIEW = 'X'.
* control_parameters-no_dialog = 'X'.
*标准输出预览，不弹对话框

  CALL FUNCTION fm_name
    EXPORTING
      control_parameters = control_parameters
      output_options     = output_options
      user_settings      = ''    "严重注意该栏位的作用：默认是‘X’，如果是‘X’，那么上面的输出设备（TDDEST，tdprinter等）就会被忽略，直接从登陆用户的设置上带过来。
    IMPORTING
      job_output_info    = job_output_info
    EXCEPTIONS
      formatting_error   = 1
      internal_error=
      2
      send_error         = 3
      user_canceled      = 4
      OTHERS             = 5.

ENDFORM.                    "open_smartform

*&---------------------------------------------------------------------*
*&      Form  convert_2_PDF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM convert_2_pdf.
* Converting to PDF Format
  DATA l_lines TYPE TABLE OF tline WITH HEADER LINE.
  DATA l_docs TYPE TABLE OF docs.
  DATA len TYPE i.
  CALL FUNCTION 'CONVERT_OTF_2_PDF'
    IMPORTING
      bin_filesize           = len
    TABLES
      otf                    = job_output_info-otfdata[]
      doctab_archive         = l_docs[]
      lines                  = l_lines[]
    EXCEPTIONS
      err_conv_not_possible? = 1
      err_otf_mc_noendmarker = 2
      OTHERS                 = 3.
  CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      bin_filesize = len
      filename     = 'c:\pdf.pdf'
      filetype     = 'BIN'
    CHANGING
      data_tab     = l_lines[]"i_objbin[]
    EXCEPTIONS
      OTHERS       = 1.
ENDFORM.                    "convert_2_PDF