To upload a RTF and a PDF file to SAP R/3 and print the same through SAP

Question

Hi,
I have a requirement to upload a PDF file and a RTF file to SAP R/3 and print the same.
I wrote the following code for uploading a RTF file to SAP R/3 and print the same. However, the problem is , the formatting present in the RTF document( bold/italics..etc) is not being reflected when I do the 'print-preview' after the executing the code below :
report z_test_upload .
data: begin of itab occurs 0,
         rec type string,
      end of itab.
data: options like itcpo.
data: filename type string,
      count type i.
data: filetype(10) type c value 'ASC'.
DATA: HEADER  LIKE THEAD    OCCURS   0 WITH HEADER LINE.
DATA: NEWHEADER  LIKE THEAD    OCCURS   0 WITH HEADER LINE.
DATA: ITFLINE LIKE TLINE    OCCURS   0 WITH HEADER LINE.
DATA: RTFLINE LIKE HELP_STFA OCCURS   0 WITH HEADER LINE.
DATA:   string_len TYPE i,
        n1 TYPE i.
selection-screen begin of block b1.
  parameter: p_file1(128) default 'C:\test_itf.rtf'.
selection-screen end of block b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
  CALL FUNCTION 'F4_FILENAME'
       IMPORTING
            file_name = p_file1.
start-of-selection.
move p_file1 to filename.
call function 'GUI_UPLOAD'
     EXPORTING
          filename                = filename
          filetype                = filetype
     TABLES
          data_tab                = itab
     EXCEPTIONS
          file_open_error         = 1
          file_read_error         = 2
          no_batch                = 3
          gui_refuse_filetransfer = 4
          invalid_type            = 5
          no_authority            = 6
          unknown_error           = 7
          bad_data_format         = 8
          header_not_allowed      = 9
          separator_not_allowed   = 10
          header_too_long         = 11
          unknown_dp_error        = 12
          access_denied           = 13
          dp_out_of_memory        = 14
          disk_full               = 15
          dp_timeout              = 16
          others                  = 17.
if sy-subrc <> 0.
  message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
loop at itab.
  string_len = strlen( itab-rec ).
  n1 = string_len DIV 134.
  ADD 1 TO n1.
  DO n1 TIMES.
    rtfline-line = itab-rec.
    APPEND rtfline.
    SHIFT itab-rec BY 134 PLACES.
  ENDDO.
endloop.
HEADER-TDSTYLE = 'S_DOCUS1'.
HEADER-TDFORM = 'S_DOCU_SHOW'.
header-tdspras = 'E'.
CALL FUNCTION 'CONVERT_TEXT'
  EXPORTING
  CODEPAGE               = '0000'
    DIRECTION              = 'IMPORT'
    FORMAT_TYPE            = 'RTF'
   FORMATWIDTH            = 72
    HEADER                 = header
    SSHEET                 = 'WINHELP.DOT'
    WITH_TAB               = 'X'
    WORD_LANGU             = SY-LANGU
    TABLETYPE              = 'ASC'
  TAB_SUBSTITUTE         = 'X09  '
  LF_SUBSTITUTE          = ' '
  REPLACE_SYMBOLS        = 'X'
  REPLACE_SAPCHARS       = 'X'
  MASK_BRACKETS          = 'X'
  IMPORTING
    NEWHEADER              = NEWHEADER
  WITH_TAB_E             =
  FORMATWIDTH_E          =
  TABLES
    FOREIGN                = RTFLINE
    ITF_LINES              = ITFLINE.
  LINKS_TO_CONVERT       =
if sy-subrc <> 0.
endif.
CALL FUNCTION 'PRINT_TEXT_ITF'
  EXPORTING
     HEADER        = newheader
     OPTIONS       = options
IMPORTING
  RESULT        =
  TABLES
    LINES         = itfline.
if sy-subrc <> 0.
endif.
Any hints or suggestions to solve this problem will be highly appreciated.
Thanks,
Avra

Answer 1

Hi Vishwas,
Check out the thread [Efficient way of saving documents uploaded|Re: Efficient way of saving documents uploaded by users; and check the blog by Raja Thangamani.
Also check the thread [Export Images through Function Modules   |Export Images through Function Modules;.
Hope it helps you.