sap smartforms下载成pdf
先贴一段代码，smartforms下载成pdfDATA: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的功能。
页:
[1]