Smartforms连续打印（L_CONTROL_PARAMETERS参数设置）

最新推荐文章于 2025-01-12 16:08:36 发布

Nathan_Sun

最新推荐文章于 2025-01-12 16:08:36 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏：技术总结 SMARTFORMS ABAP基础

本文链接：https://blog.youkuaiyun.com/Sundam/article/details/90755091

技术总结同时被 3 个专栏收录

80 篇文章

订阅专栏

ABAP基础

51 篇文章

订阅专栏

SMARTFORMS

1 篇文章

订阅专栏

本文详细介绍了使用ABAP编程语言进行打印输出控制的方法。通过设置控制参数和输出选项，可以实现对打印对话框的控制，如首次运行时显示打印对话框并保持假脱机请求不关闭。此外，还展示了如何从VBRP表中选择特定字段到内部表，并调用FM_NAME函数进行打印输出。在出现异常情况时，会捕获并处理错误。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

IF GT_DATA[] IS NOT INITIAL.
        LOOP AT GT_DATA .

          L_CONTROL_PARAMETERS-NO_OPEN = 'X'.
          L_CONTROL_PARAMETERS-NO_CLOSE = 'X'."
          AT FIRST .
            L_CONTROL_PARAMETERS-NO_OPEN = SPACE."首次运行时打开打印对话框
            L_CONTROL_PARAMETERS-NO_CLOSE = 'X'."并且不关闭假脱机请求
          ENDAT .

          CLEAR GT_DATA_IT[] .
          SELECT VBELN POSNR MATNR ARKTX FKIMG VRKME NETWR INTO CORRESPONDING FIELDS OF TABLE GT_DATA_IT[] FROM VBRP
            WHERE VBELN = GT_DATA-VBELN
            .
          CALL FUNCTION FM_NAME
            EXPORTING
              CONTROL_PARAMETERS = L_CONTROL_PARAMETERS
              OUTPUT_OPTIONS     = L_OUTPUT_OPTIONS
              USER_SETTINGS      = ''
              GS_INVOICE_HEAD    = GT_DATA
            TABLES
              GT_INVOICE_ITEM    = GT_DATA_IT[]
            EXCEPTIONS
              FORMATTING_ERROR   = 1
              INTERNAL_ERROR     = 2
              SEND_ERROR         = 3
              USER_CANCELED      = 4
              OTHERS             = 5.
          IF SY-SUBRC <> 0.
            MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.

        ENDLOOP.

        DATA: LS_JOB_OUTPUT_INFO TYPE SSFCRESCL.

        CALL FUNCTION 'SSF_CLOSE'
          IMPORTING
            JOB_OUTPUT_INFO  = LS_JOB_OUTPUT_INFO
          EXCEPTIONS
            FORMATTING_ERROR = 1
            INTERNAL_ERROR   = 2
            SEND_ERROR       = 3
            OTHERS           = 4.

        IF SY-SUBRC <> 0.
**  错误处理
          MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.