直接上代码:
REPORT zcycle055.DATA: lt_tab TYPE TABLE OF zpps001.
DATA: ls_tab TYPE zpps001.ls_tab-werks = '1001'.
ls_tab-gamng = '150.00'.
ls_tab-gstrp = '20201202'.
ls_tab-aufnr = '000010000246'.
ls_tab-auart = '标准生产'.
ls_tab-gltrp = '20201205'.
ls_tab-matnr = '04-r02a000-00005'.
ls_tab-maktx = 'Cycle is handsome!'.
ls_tab-ernam = 'lf002'.
ls_tab-erdat = '20201202'.
ls_tab-zcwb = 'MO20120003'.
ls_tab-zdddw = '盒'.
ls_tab-ftrmi = '20201210'.
ls_tab-zzczgsmc = 'Cycle有限责任公司'.APPEND ls_tab TO lt_tab.
CLEAR ls_tab.PERFORM export_pdf.FORM export_pdf.DATA:zsmart_name TYPE rs38l_fnam.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGformname = 'ZPP001'IMPORTINGfm_name = zsmart_nameEXCEPTIONSno_form = 1no_function_module = 2OTHERS = 3.DATA: w_ctrlop TYPE ssfctrlop, "Smart Forms: 控制结构 "W_CONTROLw_compop TYPE ssfcompop, "SAP Smart Forms: 智能写作器 (传输) 选项"W_OUTPUT.w_return TYPE ssfcrescl. "Smart Forms: 表格打印结束时返回值DATA: len TYPE i,w_filesize TYPE i,g_pdf_xstring TYPE xstring,l_lines TYPE TABLE OF tline WITH HEADER LINE.DATA doctab TYPE TABLE OF docs WITH HEADER LINE.DATA itab LIKE tline OCCURS 0 WITH HEADER LINE.DATA: file_name TYPE string,fullpath TYPE string,path TYPE string,p_sefile LIKE rlgrap-filename VALUE 'D:\'. "'/usr/sap/tmp/'.w_ctrlop-getotf = 'X'."OTF 表的返回w_ctrlop-no_dialog = 'X'."关闭打印对话框"w_ctrlop-no_open = 'X'."no dialog box"w_ctrlop-no_close = 'X'."no*&W_COMPOP-TDNOPRINT = 'X'.w_compop-tdnoprev = 'X'."没有打印预览"W_COMPOP用来设置打印参数弹出对话框中的值,下面这几个参数不必要
* W_COMPOP-TDNEWID = 'X'. "New Spoolw_compop-tdimmed = 'X'.w_compop-tddelete = ''. "Delete Spool After Printw_compop-tdfinal = 'X'.w_compop-tdiexit = 'X'. "Exit after printing in print previeww_compop-tddest = 'lp01'. "设备名称w_compop-xdf2outdev = 'lp01'.w_compop-tdarmod = '1'.w_compop-tdnoprev = 'X'. "隐藏报表预览功能,默认为空*&smartforms打印 ,将打印的值输入到W_RETURN-OTFDATA[]中CALL FUNCTION zsmart_nameEXPORTINGcontrol_parameters = w_ctrlopoutput_options = w_compop
* totalpages = totalpages
* zbukrs = p_bukrs
* zcb = cb"gth_header = gth_alv_selIMPORTINGjob_output_info = w_returnTABLESt_item = lt_tab "传所选行项目明细内表 传到sfEXCEPTIONSformatting_error = 1internal_error = 2send_error = 3user_canceled = 4OTHERS = 5."CONVERT_OTF函数取不到lines的返回值
"但是可以直接获取到PDF数据的XSTRING数据,可以用于后台直接OPEN DATASET 生成文件CALL FUNCTION 'CONVERT_OTF'EXPORTINGformat = 'PDF'IMPORTINGbin_filesize = lenbin_file = g_pdf_xstringTABLESotf = w_return-otfdata[]lines = itabEXCEPTIONSerr_max_linewidth = 1err_format = 2err_conv_not_possible = 3err_bad_otf = 4OTHERS = 5."后台OPEN DATASET 直接生成PDF文件CONCATENATE p_sefile sy-uname '-' sy-uzeit '.pdf' INTO file_name. "addrssOPEN DATASET file_name FOR OUTPUT IN BINARY MODE." MESSAGE L_MESSAGE_DB.IF sy-subrc EQ 0.TRANSFER g_pdf_xstring TO file_name.CLOSE DATASET file_name.ELSE.MESSAGE 'OPEN ERROR!!' TYPE 'E'.STOP.ENDIF."CONVERT_OTF_2_PDF 可以生成PDF格式的内表CALL FUNCTION 'CONVERT_OTF_2_PDF' "转换otf数据为二进制PDF文件,可以用于前台直接下载PDF文件
* EXPORTING
* use_otf_mc_cmd = 'X'
* archive_index = archive_indexIMPORTINGbin_filesize = lenTABLESotf = w_return-otfdata[]doctab_archive = doctablines = l_lines[]EXCEPTIONSerr_conv_not_possible = 1err_otf_mc_noendmarker = 2.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF."前台下载PDF文件CONCATENATE 'D:\' sy-uname '-' sy-uzeit ' FFF.pdf' INTO file_name."定义文件名"这一段不屏蔽, 在打印的时候会有显示选择路径的对话框,屏蔽则直接保存在上面的文件名"file_name 指定的路径CALL METHOD cl_gui_frontend_services=>file_save_dialog "保存文件窗口(选择路径)EXPORTINGdefault_extension = 'PDF'file_filter = '*.PDF'default_file_name = file_nameCHANGINGfilename = file_namepath = pathfullpath = fullpath
* user_action = uaEXCEPTIONScntl_error = 1error_no_gui = 2not_supported_by_gui = 3OTHERS = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ELSE.CALL FUNCTION 'GUI_DOWNLOAD' "保存文件在本地EXPORTINGbin_filesize = lenfilename = file_namefiletype = 'BIN'IMPORTINGfilelength = w_filesizeTABLESdata_tab = l_lines[]EXCEPTIONSfile_write_error = 1no_batch = 2gui_refuse_filetransfer = 3invalid_type = 4no_authority = 5unknown_error = 6header_not_allowed = 7separator_not_allowed = 8filesize_not_allowed = 9header_too_long = 10dp_error_create = 11dp_error_send = 12dp_error_write = 13unknown_dp_error = 14access_denied = 15dp_out_of_memory = 16disk_full = 17dp_timeout = 18file_not_found = 19dataprovider_exception = 20control_flush_error = 21OTHERS = 22.IF sy-subrc <> 0.MESSAGE 'File not downloaded' TYPE 'I' .ENDIF.ENDIF.ENDFORM. "export_pdf
效果:
直接把文件下载到桌面
打开文件
更多细节可以参考大佬的文章:https://www.cnblogs.com/buduzhiren/p/10754617.html