SAP SmartForms PDF Preview Test 打印预览生成PDF文件
*&---------------------------------------------------------------------*
*& Report ZDZSSFCOMP_PDF_PREVIEW
*&---------------------------------------------------------------------*
REPORT zdzssfcomp_pdf_preview NO STANDARD PAGE HEADING.
DATA: gv_formname TYPE tdsfname VALUE 'IS_U_DSM_DEMO_BILL',
gv_fm_name TYPE rs38l_fnam.
DATA: gwa_ssfcompop TYPE ssfcompop,
gwa_control TYPE ssfctrlop.
DATA: gv_devtype TYPE rspoptype.
DATA: gv_job_output TYPE ssfcrescl.
DATA: gt_lines TYPE TABLE OF tline.
DATA: gv_size TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK b100 WITH FRAME TITLE TEXT-100.
PARAMETERS: p_fname TYPE ssfscreen-fname DEFAULT 'IS_U_DSM_DEMO_BILL'.
SELECTION-SCREEN END OF BLOCK b100.
INITIALIZATION.
START-OF-SELECTION.
gv_formname = p_fname.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = gv_formname
IMPORTING
fm_name = gv_fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
*Get Device Type
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
EXPORTING
i_language = sy-langu
IMPORTING
e_devtype = gv_devtype
EXCEPTIONS
no_language = 1
language_not_installed = 2
no_devtype_found = 3
system_error = 4
OTHERS = 5.
gwa_ssfcompop-tdprinter = gv_devtype.
*Suppress print dialog
gwa_control-no_dialog = 'X'.
gwa_control-getotf = 'X'.
CALL FUNCTION gv_fm_name
EXPORTING
control_parameters = gwa_control
output_options = gwa_ssfcompop
IMPORTING
job_output_info = gv_job_output
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
CALL FUNCTION 'SSFCOMP_PDF_PREVIEW'
EXPORTING
i_otf = gv_job_output-otfdata
EXCEPTIONS
convert_otf_to_pdf_error = 1
cntl_error = 2
OTHERS = 3.
SSFCOMP_PDF_PREVIEW : Smartform PDF Previewhttps://www.saphub.com/smartforms/smartform-pdf-preview