sap smartforms打印窗口不弹出打印确认对话框直接默认打印
FORM PRINT .DATA: T_CONTROL_PARAMETERS TYPE SSFCTRLOP,
T_OUTPUT_OPTIONS TYPE SSFCOMPOP.
SELECT SINGLE * FROM Z3EVDIN INTO CORRESPONDING FIELDS OF WA_Z3EPSCV
WHERE Z3ICID = WA_Z3ECCV-Z3ICID.
WA_Z3EPSCV-Z3CCVN = WA_Z3ECCV-Z3CCVN.
WA_Z3EPSCV-Z3SUNU = WA_Z3ECCV-Z3SUNU.
WA_Z3EPSCV-Z3COKI = WA_Z3ECCV-Z3COKI.
WA_Z3EPSCV-Z3TRLI = WA_Z3ECCV-Z3TRLI.
WA_Z3EPSCV-Z3ICID = WA_Z3ECCV-Z3ICID.
WA_Z3EPSCV-Z3WETI = WA_Z3ECCV-Z3WETI.
WA_Z3EPSCV-Z3WEDA = WA_Z3ECCV-Z3WEDA.
WA_Z3EPSCV-Z3CRUS = WA_Z3ECCV-Z3CRUS.
WA_Z3EPSCV-Z3PONU = WA_Z3ECCV-Z3PONU.
WA_Z3EPSCV-Z3WERK = WA_Z3ECCV-Z3WERK.
SELECT SINGLE Z3NAME1 FROM Z3T001W INTO
WA_Z3EPSCV-Z3NAME1 WHERE Z3WERK = WA_Z3ECCV-Z3WERK.
SELECT SINGLE Z3SUNA FROM Z3ASI INTO
WA_Z3EPSCV-Z3SUNA WHERE Z3SUNU = WA_Z3ECCV-Z3SUNU.
CLEAR:T_CONTROL_PARAMETERS,T_OUTPUT_OPTIONS.
*
T_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
T_OUTPUT_OPTIONS-TDNEWID = 'X'. "New Spool
T_OUTPUT_OPTIONS-TDIMMED = 'X'.
T_OUTPUT_OPTIONS-TDDELETE = 'X'. "Delete Spool After Print
T_OUTPUT_OPTIONS-TDFINAL = 'X'.
T_OUTPUT_OPTIONS-TDIEXIT = 'X'. "Exit after printing in print preview
T_OUTPUT_OPTIONS-TDDEST = 'LP01'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'Z3003PCD'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = fm_name
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION fm_name
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = T_CONTROL_PARAMETERS "设置不显示打印确认对话框
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
OUTPUT_OPTIONS = T_OUTPUT_OPTIONS "默认打印选项设置传输
USER_SETTINGS = 'X'
I_Z3ESCV = WA_Z3EPSCV
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR WA_Z3EPSCV.
CLEAR WA_Z3ECCV.
ENDFORM.
页:
[1]