SAP SMARTFORMS 之由竖打向横打的转换

在同一个SMARTFOMR中，想实现前几页是竖向打印的，而后几页变为横向打印的，觉得这个需求有点不切实际

老大说这样的打印好像只有Mircosoft Word能够实现，我觉得这也有点不可能。如果你有好的方法能够实现在同

一个SMARTFORM中实现打印方向的改变，请你与我联系，我将非常感谢。

当然，需求是不能不实现的，毕竟俺是拿着工资上着班的，所以没办法，简便的方法做不出来，只能用笨方法做了，

一个SMARTFORM完成不了的工作，我把他分配给两个，这样实现起来虽然麻烦点，但终归是把这个需求解决了，

还是挺高兴的。

具体实现方法就不详细说了，其实很简单，和上一篇循环打印的原理差不多，只是把一个SMARTFORM的循环打印变

成了控制两个SMARTFORM同时打印而已。贴段代码出来，大家一看就明白了。希望哪位遇到这样的需求了能够对

你有所帮助。

当然，如果你有更好的方法，请与我联系。谢谢。

*要竖打的内表数据 ---竖打FORM调用
CONCATENATE sy-uname sy-uzeit+4(2) INTO mid.

EXPORT table = itab TO DATABASE indx(hk) ID mid.
CONDENSE mid NO-GAPS.

DATA fm_name TYPE tdsfname.
DATA: ls_control_param TYPE ssfctrlop .
DATA: ls_composer_param TYPE ssfcompop .
DATA: outopt TYPE ssfcresop.
DATA: i_job_output_info TYPE ssfcrescl.

ls_control_param-langu = '1'.
ls_control_param-no_open = 'X'.
ls_control_param-no_close = 'X'.

CALL FUNCTION 'SSF_OPEN'
    EXPORTING
      control_parameters = ls_control_param
      output_options     = ls_composer_param
    IMPORTING
      job_output_options = outopt
    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.
    EXIT.
ENDIF.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = 'Z_CUSTOMER_BILL'
      variant            = ' '
      direct_call        = ' '
    IMPORTING
      fm_name            = fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION fm_name
    EXPORTING
      control_parameters = ls_control_param
      output_options     = ls_composer_param
    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.

DELETE FROM DATABASE indx(hk) ID mid.

**要横打的内表数据 ---横打FORM调用
IF jtab IS NOT INITIAL.
CLEAR fm_name.
CLEAR mid.

CONCATENATE sy-uname sy-uzeit+4(2) INTO mid.

*将内表数据存入ABAP内存
EXPORT table = jtab TO DATABASE indx(hk) ID mid.
CONDENSE mid NO-GAPS.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname           = 'Z_CUSTOMER_BILL_ADD'
        variant            = ' '
        direct_call        = ' '
      IMPORTING
        fm_name            = fm_name
      EXCEPTIONS
        no_form            = 1
        no_function_module = 2
        OTHERS             = 3.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

CALL FUNCTION fm_name
      EXPORTING
        control_parameters = ls_control_param
        output_options     = ls_composer_param
      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.

DELETE FROM DATABASE indx(hk) ID mid.
ENDIF.

CALL FUNCTION 'SSF_CLOSE'
    IMPORTING
      job_output_info = i_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.

SAP SMARTFORMS 之由竖打向横打的转换相关推荐

SAP Smartforms 条码打印
SAP 条码打印有新旧两种技术方法: 1.传统的(旧):将数据发送到打印机上,由打印机将数据转换成条码图案,然后进行打印. 2.新方法:数据在SAP系统中生成条码图案,然后直接发送到打印机进行 ...
SAP SmartForms PDF Preview Test 打印预览生成PDF文件
SAP SmartForms PDF Preview Test 打印预览生成PDF文件 *&-------------------------------------------------- ...
SAP smartforms打印图片
注意:SAP只能上传打印bmp格式图片 1.标准程序上传 T-CODE:SE78 2.程序代码上传 DATA: P_FILENAME TYPE RLGRAP-FILENAME,P_NAME TYPE ...
SAP smartforms之Zebra print control language
因为在做个小标签的时候需要将部分字符旋转180度,在scn上找了很久也发布了自己的提问,不过最终的结果却不尽人意.Rotated text in smartforms need use the PCL ...
SAP SMARTFORMS文本内容手动换行输出
实现效果如下,批次和片号信息换行输出(非自动换行) 实现方式如下: 1.使用 CL_ABAP_CHAR_UTILITIES=>CR_LF 拼接换行符 2.smartforms定义全局变量 3.添 ...
SAP smartforms LOGO白底问题
smartforms 上传图片是以bmp的格式上传. 即使png.jpg格式下图片是透明的,在bmp格式下,是有白底的.这样在打印出来的时候,会有颜色不一致. 解决方案: 通过画图打开bmp图片另 ...
SAP SMARTFORMS打印文本内容手动换行
文章目录 1.背景 2.实现 2.1 显示字段本身非长文本 2.1.1 定义输出字段全局变量 2.1.2 拼接字段 2.1.3 将字符型变量转换成长文本内表 2.1.4 输出字段设置文本类型 2.2 ...
SAP smartforms 以及大小调节条形码大小调节
1 数据传递前段 CALL FUNCTION g_fm_name EXPORTING control_parameters = gw_control ...
SAP SMARTFORMS 打印机配置 SPAD
SPAD # CNSAPWIN SAPscript spool form # Select formlength from the windows printmanager! # change Win ...

SAP SMARTFORMS 之由竖打向横打的转换

SAP SMARTFORMS 之由竖打向横打的转换相关推荐

最新文章

热门文章