实现SmartForms 连续打印

调用smartforms时直接打印，不出现打印预览窗口，适用于凭证的批量打印。代码如下：

 

DATA: fm_name TYPE rs 38l_fnam.

DATA: ctrl_param TYPE ssfctrlop,

        out_option TYPE ssfcompop.

 

ctrl_param-preview = ''.

out_option-tddest = 'LP01'. " in your case it is LOCL

out_option-tdimmed = 'X'.   " Print Immediately (Print Parameters)

out_option-tddelete = 'X'. " Delete After Printing (Print Parameters)

ctrl_param-no_dialog = 'X'.

 

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      formname = 'Z_FRM_MTRL_DOC'

    IMPORTING

      fm_name = fm_name.

 

LOOP AT it_ln INTO wa_ln.

    CALL FUNCTION fm_name

      EXPORTING

        control_parameters = ctrl_param

        output_options    = out_option

        user_settings      = space

        g_mblnr          = wa_ln-mblnr

      EXCEPTIONS

        formatting_error   = 1

        internal_error     = 2

        send_error       = 3

        user_canceled    = 4

        OTHERS        = 5.

ENDLOOP.