Как напечатать SMART FORM без вывода принт диалога

Buran

Lars

В ФМ вызова смартформы в импортных параметрах есть следующие параметры:

IMPORTING
document_output_info = zdocument_output_info
job_output_info = zjob_output_info
job_output_options = zjob_output_options

далее :

MOVE-CORRESPONDING zjob_output_options TO zcontrol.
MOVE-CORRESPONDING zjob_output_info TO zcontrol.

zcontrol-tdscreen = 'ITS'.
zcontrol-tddevice = 'PRINTER'.
zcontrol-tdpageform = 'DINA4'.
zcontrol-tdimmed = 'X'.
zcontrol-tddelete = 'X'.

CALL FUNCTION 'DISPLAY_OTF'
EXPORTING
control = zcontrol
TABLES
otf = zjob_output_info-otfdata.

Вроде так.

Clarus

Я думаю, имелось в виду вот это.

* параметры перед выводом списка
ls_control_param-device = 'PRINTER'.
ls_control_param-no_dialog = 'X'.
ls_control_param-preview = LVS_ITCPO-TDPREVIEW.
ls_control_param-langu = 'R'.

* параметры после вывода списка
ls_composer_param-tdarmod = '1'.
ls_composer_param-tdnewid = 'X'.
ls_composer_param-tdimmed = 'X'.

ls_composer_param-tddest = 'LOCL'.
ls_composer_param-tdreceiver = 'RSVY'.
ls_composer_param-tdcopies = LVS_ITCPO-TDCOPIES.

CALL FUNCTION lf_fm_name
EXPORTING
archive_index = toa_dara
archive_parameters = arc_params
control_parameters = ls_control_param
output_options = ls_composer_param
....

РМщик

Code:

DATA:   OUTP  TYPE SSFCTRLOP,
        FM_NAME TYPE  RS38L_FNAM.

CLEAR OUTP.
OUTP-PREVIEW = 'X'.
OUTP-NO_DIALOG = 'X'.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    FORMNAME           = 'Имя_смарт_формы'
  IMPORTING
    FM_NAME            = FM_NAME
  EXCEPTIONS
    NO_FORM            = 1
    NO_FUNCTION_MODULE = 2
    OTHERS             = 3.

IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  EXIT.
ENDIF.

CLEAR OUTP.
OUTP-PREVIEW = 'X'.
OUTP-NO_DIALOG = 'X'.
CALL FUNCTION FM_NAME
  EXPORTING
    CONTROL_PARAMETERS = OUTP
  EXCEPTIONS
    FORMATTING_ERROR   = 1
    INTERNAL_ERROR     = 2
    SEND_ERROR         = 3
    USER_CANCELED      = 4
    OTHERS             = 5.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Buran

Спасибо большое

Правила форума

Как напечатать SMART FORM без вывода принт диалога

Кто сейчас на конференции