matinal：ABAP 代码实现PDF 打印

最新推荐文章于 2025-04-08 22:27:38 发布

SAPmatinal

最新推荐文章于 2025-04-08 22:27:38 发布

阅读量563

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ABAP技术文章标签： pdf 开发语言服务器 python 网络

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/132352329

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

文章详细描述了在ABAP编程中使用FORM和函数调用创建PDF打印流程，涉及通过URL获取文件流和使用ADS_CREATE_PDF_SPOOLJOB函数生成PDF文件。

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

核心几个功能
*& Form PDF_PRINT
*&---------------------------------------------------------------------*
*通过地址获取文件流
*----------------------------------------------------------------------*

FORM FRM_GET_CONTENT USING URL TYPE STRING
                      CHANGING CONTENT TYPE XSTRING.

  DATA : HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT.
  CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
    EXPORTING
      URL                = URL
    IMPORTING
      CLIENT             = HTTP_CLIENT
    EXCEPTIONS
      ARGUMENT_NOT_FOUND = 1
      PLUGIN_NOT_ACTIVE  = 2
      INTERNAL_ERROR     = 3
      OTHERS             = 4.
  IF SY-SUBRC = 0.
    HTTP_CLIENT->SEND( ).
    HTTP_CLIENT->RECEIVE( ).
    "CONTENT = HTTP_CLIENT->RESPONSE->TO_XSTRING( ).
    CONTENT = HTTP_CLIENT->RESPONSE->GET_DATA( ).
    HTTP_CLIENT->CLOSE( ).
  ENDIF.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  PDF_PRINT
*&---------------------------------------------------------------------*
*       打印PDF
*----------------------------------------------------------------------*
FORM pdf_print  USING    p_xstring TYPE xstring.
  DATA: l_rqdestl TYPE rspolname,
        l_rqdest  TYPE rspopname.
  DATA: l_spoolid TYPE rspoid,
        l_msg     TYPE string.
  DATA: ls_outpars TYPE sfpoutpar.

  DATA: size TYPE i.
  DATA: total_size TYPE i.
  DATA: spoolid TYPE rspoid.
  DATA: copies TYPE rspocopies.
  DATA: lifetime.

  CALL FUNCTION 'FPCOMP_SHOW_DIALOG'
    CHANGING
      ie_outpar      = ls_outpars
    EXCEPTIONS
      cancel         = 1
      usage_error    = 2
      system_error   = 3
      internal_error = 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.
    LEAVE PROGRAM.
  ENDIF.

  size = xstrlen( p_xstring ).
  ADD size TO total_size.

  copies = ls_outpars-copies.
  lifetime = ls_outpars-lifetime.

  CALL FUNCTION 'ADS_CREATE_PDF_SPOOLJOB'
    EXPORTING
      dest              = ls_outpars-dest
      pages             = 0
      pdf_data          = p_xstring
      name              = ls_outpars-dataset
      suffix1           = ls_outpars-suffix1
      suffix2           = ls_outpars-suffix2
      copies            = copies
*     PRIO              = ps_op-
      immediate_print   = ls_outpars-reqimm
      auto_delete       = ls_outpars-reqdel
      titleline         = ls_outpars-covtitle
      receiver          = ls_outpars-receiver
      division          = ls_outpars-division
      authority         = ls_outpars-authority
      lifetime          = lifetime
*      "printer         = l_rqdestl
*      dest            = 'PDF3'
*      "pages           = 1
*      pdf_data        = p_xstring
*      immediate_print = 'X'    "如需立即打印，设置为X
*      auto_delete     = 'X'
    IMPORTING
      spoolid         = l_spoolid
    EXCEPTIONS
      OTHERS          = 1.

ENDFORM.                    " PDF_PRINT