SAP 打印自动导出PDF本地文件(自己做的例子)

FORMexport_pdf.DATA:zsmart_name TYPErs38l_fnam.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTINGformname= 'ZLE_SHIP_BMEPR'
    IMPORTINGfm_name=zsmart_nameEXCEPTIONSno_form= 1no_function_module= 2OTHERS= 3.DATA: w_ctrlop TYPE ssfctrlop, "Smart Forms: 控制结构 "W_CONTROL
        w_compop TYPE ssfcompop, "SAP Smart Forms: 智能写作器 (传输) 选项"W_OUTPUT.
        w_return TYPE ssfcrescl. "Smart Forms: 表格打印结束时返回值
  DATA: len TYPEi,

        w_filesizeTYPEi,

        g_pdf_xstringTYPExstring,

        l_linesTYPE 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,



        fullpathTYPE string,

        pathTYPE string,

        p_sefileLIKE 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 Spool

  w_compop-tdimmed  ='X'.

  w_compop-tddelete =''.    "Delete Spool After Print

  w_compop-tdfinal  ='X'.

  w_compop-tdiexit  ='X'.    "Exit after printing in print preview

  w_compop-tddest   ='LP02'.  "设备名称

  w_compop-xdf2outdev ='LP02'.

  w_compop-tdarmod  ='1'.



*&smartforms打印 ,将打印的值输入到W_RETURN-OTFDATA[]中

  CALL FUNCTION zsmart_name

    EXPORTING

      control_parameters = w_ctrlop

      output_options     = w_compop

*      totalpages         = totalpages

*      zbukrs             = p_bukrs

*      zcb                = cb

      gth_header         = gth_alv_sel

    IMPORTING

      job_output_info    = w_return

    TABLES

      gtd_item           = gtd_item

    EXCEPTIONS

      formatting_error   = 1

      internal_error     = 2

      send_error         = 3

      user_canceled      = 4

      OTHERS             = 5.



*"CONVERT_OTF函数取不到lines的返回值，所以注释掉，用CONVERT_OTF_2_PDF

*  CALL FUNCTION'CONVERT_OTF'*    EXPORTING

*      format                ='PDF'*    IMPORTING

*      bin_filesize          = len

*      bin_file              = g_pdf_xstring

*    TABLES

*      otf                   = w_return-otfdata[]

*      lines                 = itab

*    EXCEPTIONS

*      err_max_linewidth     = 1

*      err_format            = 2

*      err_conv_not_possible = 3

*      err_bad_otf           = 4

*      OTHERS                = 5.



  CALL FUNCTION'CONVERT_OTF_2_PDF'"转换otf数据为二进制PDF文件

*    EXPORTING

*      use_otf_mc_cmd         ='X'*      archive_index          = archive_index

    IMPORTING

      bin_filesize           = len

    TABLES

      otf                    = w_return-otfdata[]

      doctab_archive         = doctab

      lines                  = l_lines[]

    EXCEPTIONS

      err_conv_not_possible  = 1

      err_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.



*  CONCATENATE p_sefile sy-uname'-'sy-uzeit'.pdf'INTO file_name. "addrss

*  OPEN 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.



  CONCATENATE'D:\'sy-uname'-'sy-uzeit' FFF.pdf'INTO  file_name.



  "定义文件名

  "这一段不屏蔽，  在打印的时候会有显示选择路径的对话框，屏蔽则直接保存在上面的文件名

  "file_name  指定的路径

  CALL METHOD cl_gui_frontend_services=>file_save_dialog    "保存文件窗口（选择路径）

    EXPORTING

      default_extension ='PDF'file_filter ='*.PDF'default_file_name    = file_name

    CHANGING

      filename             = file_name

      path                 = path

      fullpath             = fullpath

*        user_action          = ua

    EXCEPTIONS

      cntl_error           = 1

      error_no_gui         = 2

      not_supported_by_gui = 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.

  ELSE.



    CALL FUNCTION'GUI_DOWNLOAD'"保存文件在本地

      EXPORTING

        bin_filesize            = len

        filename                = file_name

        filetype                ='BIN'IMPORTING

        filelength              = w_filesize

      TABLES

        data_tab                = l_lines[]

      EXCEPTIONS

        file_write_error        = 1

        no_batch                = 2

        gui_refuse_filetransfer = 3

        invalid_type            = 4

        no_authority            = 5

        unknown_error           = 6

        header_not_allowed      = 7

        separator_not_allowed   = 8

        filesize_not_allowed    = 9

        header_too_long         = 10

        dp_error_create         = 11

        dp_error_send           = 12

        dp_error_write          = 13

        unknown_dp_error        = 14

        access_denied           = 15

        dp_out_of_memory        = 16

        disk_full               = 17

        dp_timeout              = 18

        file_not_found          = 19

        dataprovider_exception  = 20

        control_flush_error     = 21

        OTHERS                  = 22.

    IF sy-subrc <> 0.

      MESSAGE'File not downloaded'TYPE'I'.

    ENDIF.

  ENDIF.



ENDFORM.                    "export_pdf