请教：如何将报表导出为一个word文件？

ravi_zhou · 发表于 2013-8-28 16:19

ruyue318 发表于 2008-6-20 08:04
给个例子，自己研究一下：
REPORT Z_OLE_WORD_TEST .
*--Include for OLE-enabling definitions

图片怎么设置位置啊。找了好久没找到
GET PROPERTY OF w_selection 'InlineShapes' = inlineshapes.
  CALL METHOD OF inlineshapes 'AddPicture' = h_ins_logo
EXPORTING
#1 = path.

  SET PROPERTY OF w_paragraphformat 'Alignment' = 2.

* Get property of picture
  CLEAR : lw_height, lw_width.
  GET PROPERTY OF h_ins_logo 'Height' = lw_height.
  GET PROPERTY OF h_ins_logo 'Width'  = lw_width.
  CALL FUNCTION 'FLUSH'.

  lw_height = 100.
  lw_width = 50.

*  Change the property
  SET PROPERTY OF h_ins_logo 'LockAspectRatio' = -1.
  SET PROPERTY OF h_ins_logo 'Height' = lw_height.
  SET PROPERTY OF h_ins_logo 'Width' = lw_width.
  SET PROPERTY OF h_ins_logo 'Left' = '10'.
  SET PROPERTY OF h_ins_logo 'Top' = '81'.
  CALL FUNCTION 'FLUSH'.

  SET PROPERTY OF h_ins_logo 'WrapText' = 1.
*  SET PROPERTY OF h_ins_logo 'BehindText' = 1.
*  SET PROPERTY OF h_ins_logo 'Tight' = 1.

  SET PROPERTY OF h_ins_logo 'Position' = 1.
  SET PROPERTY OF h_ins_logo 'WithTextWrapping' = 3.
*  SET PROPERTY OF h_ins_logo 'InLinewithText' = 3.

  CALL METHOD OF w_selection 'TypeParagraph'.

但是想设置环绕，在顶置，考左边。Position里面的不知道怎么设置