SMARTFORMS | 打印成PDF解决方案

客户需要将Smartforms打印成PDF文件。找了一个现存的代码，改了一下参数就可测试了。

代码：

report ZABABHOME.

DATA: FORM_NAME TYPE RS38L_FNAM,

      WA_CTRLOP TYPE SSFCTRLOP,

      WA_OUTOPT TYPE SSFCOMPOP,

      T_OTFDATA TYPE SSFCRESCL.

DATA: T_PDF_TAB TYPE TABLE OF TLINE,

      T_OTF TYPE TABLE OF ITCOO.

DATA: W_FILESIZE TYPE I,

      W_BIN_FILESIZE TYPE I.

DATA : FILE_NAME TYPE STRING,

       FILE_PATH TYPE STRING,

       FULL_PATH TYPE STRING.

START-OF-SELECTION.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      FORMNAME           = 'ZABAPHOME'      "改个名称就可测试了

    IMPORTING

      FM_NAME            = FORM_NAME

    EXCEPTIONS

      NO_FORM            = 1

      NO_FUNCTION_MODULE = 2

      OTHERS             = 3.

**重点就是GETOTF这个参数

  WA_CTRLOP-GETOTF = 'X'.

  WA_CTRLOP-NO_DIALOG = 'X'.

  WA_OUTOPT-TDNOPREV = 'X'.

  CALL FUNCTION FORM_NAME

    EXPORTING

      CONTROL_PARAMETERS = WA_CTRLOP

      OUTPUT_OPTIONS     = WA_OUTOPT

      USER_SETTINGS      = 'X'

    IMPORTING

      JOB_OUTPUT_INFO    = T_OTFDATA

    EXCEPTIONS

      FORMATTING_ERROR   = 1

      INTERNAL_ERROR     = 2

      SEND_ERROR         = 3

      USER_CANCELED      = 4

      OTHERS             = 5.

END-OF-SELECTION.

  T_OTF[] = T_OTFDATA-OTFDATA[].

  CALL FUNCTION 'CONVERT_OTF'

    EXPORTING

      FORMAT                = 'PDF'

      MAX_LINEWIDTH         = 132

    IMPORTING

      BIN_FILESIZE          = W_BIN_FILESIZE

    TABLES

      OTF                   = T_OTF

      LINES                 = T_PDF_TAB

    EXCEPTIONS

      ERR_MAX_LINEWIDTH     = 1

      ERR_FORMAT            = 2

      ERR_CONV_NOT_POSSIBLE = 3

      OTHERS                = 4.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

    CHANGING

      FILENAME             = FILE_NAME

      PATH                 = FILE_PATH

      FULLPATH             = FULL_PATH

    EXCEPTIONS

      CNTL_ERROR           = 1

      ERROR_NO_GUI         = 2

      NOT_SUPPORTED_BY_GUI = 3

      OTHERS               = 4.

  CALL FUNCTION 'GUI_DOWNLOAD'

    EXPORTING

      BIN_FILESIZE            = W_BIN_FILESIZE

      FILENAME                = FULL_PATH

      FILETYPE                = 'BIN'

    IMPORTING

      FILELENGTH              = W_FILESIZE

    TABLES

      DATA_TAB                = T_PDF_TAB

    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 '错误不能下载' TYPE 'I'.

  ELSE.

    MESSAGE 'PDF已经下载，请确认' TYPE 'I'.

  ENDIF.

SAPScript的转换方式请参考

SAPScript | 打印转换成PDF

看更多ABAP知识

请长按下方图片扫码关注

ABAPHOME

写文章不易，如果觉得对你有所帮助。

请转发朋友圈，关注和请点右下角“在看”  .