ABAP FORM打印转PDF/pdf 预览

function ZSTXBC_SSFCOMP_PDF_PREVIEW.
*"--------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_OTF) TYPE  TSFOTF
*"  EXCEPTIONS
*"      CONVERT_OTF_TO_PDF_ERROR
*"      CNTL_ERROR
*"--------------------------------------------------------------------
data: l_dummy type standard table of tline.

  clear: pdf_data, pdf_size.

* convert otf to pdf
  call function 'CONVERT_OTF'
       exporting
            format                = 'PDF'
       importing
            bin_filesize          = pdf_size
            bin_file              = pdf_data
       tables
            otf                   = i_otf[]
            lines                 = l_dummy
       exceptions
            err_max_linewidth     = 1
            err_format            = 2
            err_conv_not_possible = 3
            others                = 4.

  if sy-subrc <> 0.
    raise convert_otf_to_pdf_error.
  endif.

  call screen 0300 starting at 1 1.

endfunction.

 

*&+++转换成PDF
        LT_OTF[] = LS_OTFDATA-OTFDATA[].
        CALL FUNCTION 'CONVERT_OTF'
          EXPORTING
            FORMAT                = 'PDF'
            MAX_LINEWIDTH         = 132
*           ARCHIVE_INDEX         = ' '
*           COPYNUMBER            = 0
*           ASCII_BIDI_VIS2LOG    = ' '
*           PDF_DELETE_OTFTAB     = ' '
*           PDF_USERNAME          = ' ' "don't exist
*           PDF_PREVIEW           = ' ' "don't exist
*           USE_CASCADING         = ' ' "don't exist
          IMPORTING
            BIN_FILESIZE          = L_BIN_FILESIZE
*           BIN_FILE              =
          TABLES
            OTF                   = LT_OTF
            LINES                 = LT_LINES "t_pdf_tab
          EXCEPTIONS
            ERR_MAX_LINEWIDTH     = 1
            ERR_FORMAT            = 2
            ERR_CONV_NOT_POSSIBLE = 3
            ERR_BAD_OTF           = 4
            OTHERS                = 5.

*&PDF 预览
        CALL FUNCTION 'ZSTXBC_SSFCOMP_PDF_PREVIEW'
          EXPORTING
            I_OTF                    = LT_OTF[]
          EXCEPTIONS
            CONVERT_OTF_TO_PDF_ERROR = 1
            CNTL_ERROR               = 2
            OTHERS                   = 3.

*&*********************************************************