SAP_ABAP_SMARTFORMS打印教程

本文主要是介绍SAP_ABAP_SMARTFORMS打印教程，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

一背景说明

文章来自：SAP ABAP顾问能力模型_企业数字化建设者Terry的博客

软件环境：GUI760 , S4/Hana 755

Source code:

二实现效果

三实现步骤

主要实现2个部分的内容，第一部分：smartforms表单绘制部分；第二部分：abap 程序代码部分。

四细节说明

4.1 表单绘制

表单绘制从大的分类来看为两个部分：表单内容、表单样式，细节非常多。

tcode:smartforms

表单、样式创建入口位置

表单界面总览：

样式界面总览：

4.2 代码实现

代码实现主要为5个步骤：

1.通过smartfroms 取到对应的函数名称,如： ZSF_SALESORDER --> /1BCDWB/SF00000039

2.设置打印控制

3. 打开输出请求 SSF

4. 调用smartfrom 函数，传入打印参数

5. 关闭打印机设置

（复制直接可用）

6 数据准备：

6.1 定义结构：ZSSD_VBAK

公司代码	VBAK	VKORG
客户编号	VBAK	KUNNR
客户名称	VBAK	NAME1
销售订单号	VBAK	VBELN

6.2 定义结构：ZSSD_VBAP , 定义表类型 ZSSD_VBAP_T

行项目	VBAP	POSNR
物料编码	VBAP	MATNR
物料描述	VBAP	NAME1
订单数量	VBAP	KWMENG
单位	VBAP	VRKME
备注	VBAP	ZBAK

6.3 smartforms:ZSF_SALESORDER、ZSF1

*&---------------------------------------------------------------------*
*& Report ZSMF
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsmf.SELECTION-SCREEN:BEGIN OF BLOCK b0 WITH FRAME TITLE TEXT-001."PARAMETERS: pa_file TYPE rlgrap-filename ."文件夹上传
SELECTION-SCREEN:END OF BLOCK b0.INITIALIZATION.
* PERform INI_SELECTION_SCREEN. " 初始化选择屏上的变量
AT SELECTION-SCREEN.
* PERform INI_DATA. " 选择屏幕输入值的验证
START-OF-SELECTION.
* PERform PRECESS_DATA. " 主要数据处理逻辑" --- 1 通过smartfroms 取到对应的函数名称, ZSF_SALESORDER --> /1BCDWB/SF00000039DATA: lv_formname   TYPE tdsfname.DATA: w_sfname TYPE rs38l_fnam.lv_formname = 'ZSF_SALESORDER'.        "改成自己的SMART名字CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGformname           = lv_formnameIMPORTINGfm_name            = w_sfnameEXCEPTIONSno_form            = 1no_function_module = 2OTHERS             = 3." --- 2 设置打印控制DATA: w_control        TYPE ssfctrlop,w_output_options TYPE ssfcompop.DATA: w_job_output_options TYPE ssfcresop.w_output_options-tdimmed  = 'X'.w_output_options-tddelete = 'X'.w_output_options-tddest   = 'LP01'.w_control-no_open         = 'X'.      "没有新的假脱机请求w_control-no_close        = 'X'.      "不关闭假脱机请求" --- 3 打开输出请求 SSFCALL FUNCTION 'SSF_OPEN'EXPORTINGoutput_options     = w_output_optionscontrol_parameters = w_controlIMPORTINGjob_output_options = w_job_output_optionsEXCEPTIONSformatting_error   = 1internal_error     = 2send_error         = 3user_canceled      = 4OTHERS             = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'I' "sy-msgtyNUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF." --- 4 调用smartfrom 函数 ，传入打印参数DATA: ls_head TYPE zssd_vbak,ls_item TYPE zssd_vbap,lt_item TYPE STANDARD TABLE OF zssd_vbap.DATA:lv_i TYPE i.lv_i = 1.DO 2 TIMES.REFRESH:lt_item.CLEAR:ls_head.ls_head-vkorg = '1010'.ls_head-kunnr = 'kunnr'.ls_head-name1 = 'kunnr_desc'.ls_head-vbeln = 'A000' && lv_i.CLEAR:ls_item.ls_item-posnr = 1.ls_item-vrkme = '个'.ls_item-zdw = '个'.ls_item-matnr = 'M001' && lv_i.ls_item-name1 = 'NAME1'.ls_item-zbak  = '销售订单打印测试demo'&& lv_i.ls_item-kwmeng = 12.APPEND ls_item TO lt_item.CLEAR:ls_item.ls_item-posnr = 2.ls_item-vrkme = 'PC'.ls_item-zdw = '个'.ls_item-matnr = 'M002' && lv_i.ls_item-name1 = 'NAME2'.ls_item-zbak  = '销售订单打印测试demo'&& lv_i.ls_item-kwmeng = 13.APPEND ls_item TO lt_item.CALL FUNCTION w_sfnameEXPORTINGcontrol_parameters = w_controlzs_vbak            = ls_headIMPORTINGjob_output_options = w_job_output_optionsTABLESzt_vbap            = lt_itemEXCEPTIONSformatting_error   = 1internal_error     = 2send_error         = 3user_canceled      = 4OTHERS             = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.LEAVE LIST-PROCESSING.ENDIF.lv_i = lv_i + 1.ENDDO." --- 5 关闭打印机设置DATA: job_output_options TYPE ssfcrescl.CALL FUNCTION 'SSF_CLOSE'IMPORTINGjob_output_info  = job_output_optionsEXCEPTIONSformatting_error = 1internal_error   = 2send_error       = 3OTHERS           = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'I' "sy-msgtyNUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF.AT LINE-SELECTION.
* PERform PRECESS_LINE_SELECTED. " 行选择时的处理AT USER-COMMAND.
* PERform PRECESS_USER_COMMAND. * 用自定义命令按钮时的处理TOP-OF-PAGE.
* PERform PAGE_HEADER. " 页眉END-OF-PAGE.
* PERform PAGE_FOOT. " 页脚