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