sap smartforms下载成pdf

先贴一段代码，smartforms下载成pdf

DATA:l_fname TYPE rs38l_fnam,
     ls_ctr TYPE ssfctrlop,
     ls_cre TYPE ssfcrescl,
     ls_opt TYPE ssfcompop.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
    formname           = 'FORMS_NAME'
IMPORTING
    fm_name            = l_fname
EXCEPTIONS
    no_form            = 1
    no_function_module = 2
    OTHERS             = 3.

IF sy-subrc EQ 0.
ls_ctr-getotf = 'X'.
ls_ctr-no_dialog = 'X'.
ls_ctr-langu = sy-langu.
CALL FUNCTION l_fname
    EXPORTING
      control_parameters = ls_ctr
      output_options   = ls_opt
      user_settings      = 'X'
    IMPORTING
      job_output_info    = ls_cre
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      user_canceled    = 4.
IF sy-subrc EQ 0.

    DATA:lt_otf LIKE itcoo OCCURS 0 WITH HEADER LINE,
         lt_content_txt TYPE soli_tab,
        ls_content_txt TYPE soli,
        lt_content_bin TYPE solix_tab,
        l_transfer_bin TYPE sx_boolean,
        lt_objhead TYPE soli_tab,
        l_len_in TYPE so_obj_len,
        l_size TYPE i.

    lt_otf[] = ls_cre-otfdata[].
    LOOP AT lt_otf.
      CONCATENATE lt_otf-tdprintcom lt_otf-tdprintpar
        INTO ls_content_txt.
      APPEND ls_content_txt TO lt_content_txt.
    ENDLOOP.

    CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
      EXPORTING
        format_src      = 'OTF'
        format_dst      = 'PDF'
        devtype         = 'PRINTER'
      CHANGING
        transfer_bin    = l_transfer_bin
        content_txt     = lt_content_txt
        content_bin     = lt_content_bin
        objhead         = lt_objhead
        len             = l_len_in
      EXCEPTIONS
        err_conv_failed = 1
        OTHERS          = 2.

    l_size = l_len_in.

* Downloading the PDF File
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        bin_filesize = l_size
        filename     = 'D:\ZFHR001.PDF'
        filetype     = 'BIN'
      TABLES
        data_tab     = lt_content_bin.

ENDIF.
ENDIF.

用这段代码即可实现smartforms下载成pdf文件

但是之前我的程序总是没反应，也没有报任何错，就是没反应

后来发现了一个问题

在执行完以下function 后，返回值 sy-subrc = '1' ，不是0

CALL FUNCTION l_fname
    EXPORTING
      control_parameters = ls_ctr
      output_options   = ls_opt
      user_settings      = 'X'
    IMPORTING
      job_output_info    = ls_cre
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      user_canceled    = 4.

后来知道返回值为 1 时， 是因为smartforms的设计有问题

重新检查smartforms ，发现窗口太小了，放不下模板

这个错误分享给大家，顺便也分享一下下载成pdf的功能。