Короче, а вот и программа общего вида для печати выходных документов для документов материала... текстовые критерии для программы находятся ytov_prnmm_text.PNG и ytov_prnmm_selopt.PNG, а общий вид программы при работе ytov_prnmm.PNG.
*&---------------------------------------------------------------------*
*& Report YUUK_PRINT_MM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT yuuk_print_mm.
TABLES: mkpf.
SELECT-OPTIONS: p_mblnr FOR mkpf-mblnr,
p_mjahr FOR mkpf-mjahr.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK block001 WITH FRAME TITLE text-001.
PARAMETERS : p_kschl LIKE nast-kschl,
p_ldest LIKE nast-ldest DEFAULT 'LOCL',
p_anzal LIKE nast-anzal DEFAULT 1,
p_dimme AS CHECKBOX, "Немедленный вывод
p_delet AS CHECKBOX. "Удалить спул после вывода
SELECTION-SCREEN END OF BLOCK block001.
************************************************************************
DATA: BEGIN OF lt_mkpf OCCURS 10,
mblnr LIKE mkpf-mblnr,
mjahr LIKE mkpf-mjahr.
DATA: END OF lt_mkpf.
************************************************************************
START-OF-SELECTION.
PERFORM select_documents TABLES lt_mkpf.
PERFORM print_document TABLES lt_mkpf.
*&---------------------------------------------------------------------*
*& Form SELECT_DOCUMENTS
*&---------------------------------------------------------------------*
* Выбрать документы для печати
*----------------------------------------------------------------------*
* <-- PT_MKPF - Список документов
*----------------------------------------------------------------------*
FORM select_documents TABLES pt_mkpf STRUCTURE lt_mkpf.
CLEAR: pt_mkpf[].
SELECT mblnr
mjahr
INTO CORRESPONDING FIELDS OF TABLE pt_mkpf
FROM mkpf
WHERE mblnr IN p_mblnr AND
mjahr IN p_mjahr.
ENDFORM. " SELECT_DOCUMENTS
*&---------------------------------------------------------------------*
*& Form PRINT_DOCUMENT
*&---------------------------------------------------------------------*
* Вывод выходных документов
*----------------------------------------------------------------------*
* --> PT_MKPF - Список документов
*----------------------------------------------------------------------*
FORM print_document TABLES pt_mkpf STRUCTURE lt_mkpf.
DATA: l_rcode LIKE sy-subrc, "return code
ps_nast LIKE nast.
LOOP AT pt_mkpf.
CONCATENATE pt_mkpf-mblnr pt_mkpf-mjahr '0001'
INTO ps_nast-objky.
ps_nast-mandt = sy-mandt.
ps_nast-kappl = 'ME'.
ps_nast-kschl = p_kschl.
ps_nast-spras = sy-langu.
ps_nast-manue = 'X'.
ps_nast-nacha = 1.
ps_nast-vsztp = 4.
ps_nast-anzal = p_anzal. "Количество копий
ps_nast-vstat = 1.
ps_nast-ldest = p_ldest.
ps_nast-nauto = 'X'.
ps_nast-erdat = sy-datum.
ps_nast-eruhr = sy-uzeit.
ps_nast-dimme = p_dimme. "Немедленный вывод
ps_nast-delet = p_delet. "Удалить спул после вывода
ps_nast-usnam = sy-uname.
ps_nast-tdreceiver = sy-uname.
ps_nast-objtype = 'MSEG'.
CALL FUNCTION 'WFMC_MESSAGE_SINGLE'
EXPORTING
pi_nast = ps_nast
IMPORTING
pe_rcode = l_rcode.
ENDLOOP.
ENDFORM. " PRINT_DOCUMENT