Hi Ambi
Hope below code can lead you:
FORM get_print_params USING p_prin LIKE tsp03-padest p_imm TYPE c p_text. DATA: val(1). DATA: pdest LIKE pri_params-pdest. DATA: l_list LIKE pri_params-plist. l_list = p_text. IF p_prin IS INITIAL. pdest = 'LOCL'. ELSE. pdest = p_prin. ENDIF. CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING destination = pdest -> <b>Printer Name</b> no_dialog = 'X' immediately = p_imm -> <b>Flag for immediate printing</b> IMPORTING out_archive_parameters = arcpar -> <b>Return Printer paramters</b> out_parameters = pripar -> <b>Return Printer paramters</b> valid = val EXCEPTIONS archive_info_not_found = 1 invalid_print_params = 2 invalid_archive_params = 3 OTHERS = 4. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. pripar-prdsn = 'IDEN'. -> Spool Request Name CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING in_archive_parameters = arcpar -> Pass the same values which were returned above in_parameters = pripar no_dialog = 'X' list_name = l_list IMPORTING out_archive_parameters = arcpar out_parameters = pripar valid = val EXCEPTIONS archive_info_not_found = 1 invalid_print_params = 2 invalid_archive_params = 3 OTHERS = 4. IF sy-subrc EQ 0. NEW-PAGE PRINT ON NEW-SECTION PARAMETERS pripar ARCHIVE PARAMETERS arcpar NO DIALOG. ELSE. CLEAR: it_mess. CONCATENATE 'UNABLE TO GENERATE SPOOL:' l_list INTO it_mess-mesg. APPEND it_mess. ENDIF. ENDFORM. " GET_PRINT_PARAMS
So the statments that are written after executing the above FM's will be under a spool.
Please try to proceed with the above info.
Kind Regards
Eswar
Add a comment