Conversion of Smartform Output to PDF

来源:互联网 发布:phonewindow 源码 编辑:程序博客网 时间:2024/06/01 15:39

How to convert smartform output into pdf?

There is a way to download smartform in PDF format. 

Please do the following:  
1. Print the smartform to the spool.  
2. Note the spool number.  
3. Download a PDF file (Acrobat Reader) version of the spool by running Program RSTXPDFT4 and entering the  
noted spool number. 

or use this program:

&---------------------------------------------------------------------*& Report ZPDF_DNLD_TEST2 **& *&---------------------------------------------------------------------*& DEVK904540 **& *&---------------------------------------------------------------------REPORT ZPDF_DNLD_TEST2 .data: i_otf LIKE itcoo OCCURS 100 WITH HEADER LINE,i_pdf LIKE tline OCCURS 100 WITH HEADER LINE.data: op_option type SSFCTRLOP,job_output type SSFCRESCL.op_option-getotf = 'X'.CALL FUNCTION '/1BCDWB/SF00000005'EXPORTINGARCHIVE_INDEX = ARCHIVE_INDEX_TAB = ARCHIVE_PARAMETERS = CONTROL_PARAMETERS = op_optionMAIL_APPL_OBJ = MAIL_RECIPIENT = MAIL_SENDER = OUTPUT_OPTIONS = USER_SETTINGS = 'X' itab1 = itab1 IMPORTINGDOCUMENT_OUTPUT_INFO = JOB_OUTPUT_INFO = job_outputJOB_OUTPUT_OPTIONS = EXCEPTIONSFORMATTING_ERROR = 1INTERNAL_ERROR = 2SEND_ERROR = 3USER_CANCELED = 4OTHERS = 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.CALL FUNCTION 'CONVERT_OTF'EXPORTINGFORMAT = 'PDF'MAX_LINEWIDTH = 132 ARCHIVE_INDEX = ' ' COPYNUMBER = 0 ASCII_BIDI_VIS2LOG = ' ' PDF_DELETE_OTFTAB = ' ' IMPORTING BIN_FILESIZE = BIN_FILE = TABLESotf = job_output-otfdatalines = i_pdfEXCEPTIONS ERR_MAX_LINEWIDTH = 1 ERR_FORMAT = 2 ERR_CONV_NOT_POSSIBLE = 3 ERR_BAD_OTF = 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.CALL FUNCTION 'GUI_DOWNLOAD'EXPORTINGBIN_FILESIZE = filename = 'c:\test_pdf_sf.pdf'FILETYPE = 'BIN'tablesdata_tab = i_pdfFIELDNAMES = 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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.


原创粉丝点击