ABAP Code for Adobe Form Preview

来源：互联网发布：视频特技制作软件编辑：程序博客网时间：2024/04/28 17:49

Below is a simple code for test Adobe Form:

  fp_outputparams-device   = 'PRINTER'.  fp_outputparams-nodialog = 'X'.  fp_outputparams-preview  = 'X'.  fp_outputparams-CONNECTION  = 'ADS'.  fp_outputparams-ADSTRLEVEL  = '00'.  fp_outputparams-BUMODE      = '-'.  fp_outputparams-DATASET     = 'PBFORM'.  fp_outputparams-DEST  = 'LP01'.  CALL FUNCTION 'FP_JOB_OPEN'                       CHANGING      ie_outputparams = fp_outputparams    EXCEPTIONS      cancel          = 1      usage_error     = 2      system_error    = 3      internal_error  = 4      OTHERS          = 5.  IF sy-subrc <> 0.    WRITE /  'Error in FP_JOB_OPEN'.  ENDIF.  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'               EXPORTING      i_name     = p_fpname    IMPORTING      e_funcname = fm_name.  CALL FUNCTION fm_name    EXPORTING      /1bcdwb/docparams = fp_docparams      iwa_header        = lwa_header      it_item        = lt_item      iv_tc_flag        = space    EXCEPTIONS      usage_error       = 1      system_error      = 2      internal_error    = 3.  IF sy-subrc <> 0.    WRITE: /  'Error in', fm_name.  ENDIF.  CALL FUNCTION 'FP_JOB_CLOSE'    EXCEPTIONS      usage_error           = 1      system_error          = 2      internal_error        = 3      OTHERS               = 4.  IF sy-subrc <> 0.    WRITE /  'Error in FP_JOB_CLOSE'.  ENDIF.