*&---------------------------------------------------------------------*
*& Report Y_CLY_SMF
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Y_CLY_SMF.
START-OF-SELECTION.
DATA: LT_DATA TYPE TABLE OF T001 WITH HEADER LINE.
DO 20 TIMES.
LT_DATA-BUKRS = SY-INDEX.
APPEND LT_DATA.
ENDDO.
PERFORM FRM_PRINT.
*&---------------------------------------------------------------------*
*& Form FRM_PRINT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_PRINT .
**********************************************************************
DATA: L_FNAME TYPE RS38L_FNAM.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'Y_TEST_CLY_1'
IMPORTING
FM_NAME = L_FNAME.
DATA: L_OUTPUT_OPTIONS TYPE SSFCOMPOP ,
L_TMP_CONTROL_PAR LIKE SSFCTRLOP,
L_JOB_OUTPUT_INFO TYPE SSFCRESCL ,
L_PRINTCOUNT TYPE I.
***以下设置打印预览功能***
****Smart Forms: 控制结构*****
L_TMP_CONTROL_PAR-GETOTF = 'X'. "这个参数一定要设:OTF 表的返回。无打印,显示或传真
* L_TMP_CONTROL_PAR-PREVIEW = 'X'. "打印预览
L_TMP_CONTROL_PAR-NO_DIALOG = 'X'. "必须设置
** L_TMP_CONTROL_PAR-DEVICE = 'PRINTER'.
****SAP Smart Forms: 智能写作器 (传输) 选项*****
L_OUTPUT_OPTIONS-TDNOPREV = 'X'. "是否打印预览,X 不预览。
L_OUTPUT_OPTIONS-TDNOPRINT = 'X'. "没有打印输出,X 不显示。
L_OUTPUT_OPTIONS-TDIMMED = 'X'. "立即打印标志。
L_OUTPUT_OPTIONS-TDIEXIT = 'X'. "预览打印后直接退出
* L_OUTPUT_OPTIONS-TDDEST = 'RED_LOCAL'. "假脱机,输出设备。
DATA: L_LINES TYPE I.
DATA: G_C_X TYPE C VALUE 'X'.
DESCRIBE TABLE LT_DATA LINES L_LINES.
LOOP AT LT_DATA.
CASE SY-TABIX.
WHEN 1.
L_TMP_CONTROL_PAR-NO_CLOSE = G_C_X.
L_TMP_CONTROL_PAR-NO_OPEN = SPACE.
WHEN L_LINES.
L_TMP_CONTROL_PAR-NO_CLOSE = SPACE.
L_TMP_CONTROL_PAR-NO_OPEN = G_C_X.
WHEN OTHERS.
L_TMP_CONTROL_PAR-NO_CLOSE = G_C_X.
L_TMP_CONTROL_PAR-NO_OPEN = G_C_X.
ENDCASE.
IF L_LINES = 1 .
L_TMP_CONTROL_PAR-NO_CLOSE = SPACE.
L_TMP_CONTROL_PAR-NO_OPEN = SPACE.
ENDIF.
CALL FUNCTION L_FNAME
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
ABAP-SMARTFORMS-PDF(预览、下载)
最新推荐文章于 2024-08-28 18:50:43 发布
本文介绍了如何在ABAP环境中使用SMARTFORMS创建PDF,并提供了预览及下载的步骤。读者需在SU3中配置个人打印机,以避免预览或下载时出现打印设备选择窗口。
摘要由CSDN通过智能技术生成