有时候不需要打印smartforms，而是以pdf格式发邮件发过去，下面是部分代码
REPORT zlm_cvrt_smart_to_pdf_mail
.
"控制变量
DATA fm_name
TYPE rs38l_fnam
.
DATA
: control_parameters
TYPE ssfctrlop
,
l_output_options
TYPE ssfcompop
.
DATA job_output_info
TYPE ssfcrescl
.
DATA job_output_options
TYPE ssfcresop
.
*--------------------------------------------------------------------*
"转OTF
DATA
: gt_otf
LIKE
TABLE
OF itcoo
WITH
HEADER
LINE
,
gt_pdf_line
LIKE
TABLE
OF tline
WITH
HEADER
LINE
,
gt_record
LIKE
TABLE
OF solisti1
WITH
HEADER
LINE
.
DATA: g_len_in TYPE i, "OTF 文件大小（邮件附件大小）
g_lines_txt TYPE i, "邮件文本行数
g_lines_bin TYPE i. "邮件附件行数
DATA: g_benfile TYPE xstring. "二进制格式的邮件
DATA: g_object(50) TYPE c. "邮件主题
DATA pdf_name TYPE string. "附件名称
DATA: gt_objpack LIKE TABLE OF sopcklsti1 WITH HEADER LINE, "邮件内容 正文+附件
gt_objtxt LIKE TABLE OF solisti1 WITH HEADER LINE, "正文内容
gt_objbin LIKE TABLE OF solisti1 WITH HEADER LINE, "附件内容
gt_reclist LIKE TABLE OF somlreci1 WITH HEADER LINE, "收件人
wa_doc_chng TYPE sodocchgi1. "邮件属性
*--------------------------------------------------------------------*
"选择屏幕
PARAMETERS
:
p_email
TYPE so_recname OBLIGATORY
DEFAULT
'LIUMENG@…….com'
.
*--------------------------------------------------------------------*
START-OF-SELECTION.
CLEAR: job_output_options,
job_output_info,
g_len_in,
g_lines_txt,
g_lines_bin,
g_benfile.
CLEAR : gt_otf[], gt_pdf_line[],gt_record[].
"控制变量赋值
control_parameters-getotf = 'X'. "此参数必须，否则不会导出PDF而直接显示smartform
control_parameters-no_close = ''.
control_parameters-no_dialog = 'X'. "不显示打印对话框
"输出参数设置
l_output_options-tddest = 'ZLM_PL'. "选择打印设备，可选
l_output_options-xsfoutdev = 'ZLM_PL'. "选择打印设备，可选
l_output_options-tdprinter = 'CNSAPWIN'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZLM_SMTFM'
IMPORTING
fm_name = fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
CHECK: sy-subrc = 0.
CALL FUNCTION fm_name
EXPORTING
control_parameters = control_parameters
output_options = l_output_options "默认打印选项设置传输
* user_settings = 'X' "是否从用户主记录中获取信息
i_acct_head = l_acct_head
IMPORTING
job_output_info = job_output_info
job_output_options = job_output_options
TABLES
it_acct_item = lt_acct_item
EXCEPTIONS
formatting_error = 1
