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