Smartform 操作事例

　DATA: G_TAB_TEST LIKE STANDARD TABLE OF SFLIGHT, G_REC_TEST TYPE SFLIGHT.DATA: FM_NAME TYPE RS38L_FNAM.

　SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME.SELECT-OPTIONS S_LINE FOR G_REC_TEST-CARRID NO INTERVALS.SELECT-OPTIONS S_DATE FOR G_REC_TEST-FLDATE.SELECTION-SCREEN END OF BLOCK BLOCK1.

　INITIALIZATION. REFRESH G_TAB_TEST. CLEAR: G_REC_TEST, FM_NAME.

　START-OF-SELECTION. SELECT * INTO TABLE G_TAB_TEST FROM SFLIGHT WHERE CARRID IN S_LINE AND FLDATE IN S_DATE.

　 IF SY-SUBRC <> 0. MESSAGE E001 WITH 'NO DATA'.* No data selected. ENDIF.END-OF-SELECTION. CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING FORMNAME = 'ZTEST_22_SF0001'* 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_PARAMETERS =* CONTROL_PARAMETERS =* MAIL_APPL_OBJ =* MAIL_RECIPIENT =* MAIL_SENDER =* OUTPUT_OPTIONS =* USER_SETTINGS = 'X'* IMPORTING* DOCUMENT_OUTPUT_INFO =* JOB_OUTPUT_INFO =* JOB_OUTPUT_OPTIONS = TABLES G_TAB_TEST = G_TAB_TEST EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5 .IF SY-SUBRC <> 0.* <error handling>ENDIF.

　保存并激活你程序，运行结果：

　点击打印，就看到你要的结果了