How to enter text in to the smartform before Printing.

Question

Hi All,
my requirement is,
after execute the print programe, it should give the window for entering the text, after that the text should be displayed on the smartform.
custom text should be entered after the exection of the program and before if prints.

Answer 1

*& Report  ZTEST_PRG1
REPORT  anirban.
** DATA Declration
DATA: w_contain TYPE REF TO cl_gui_custom_container,
      w_textcon TYPE REF TO cl_gui_textedit.
** Constant Declration
CONSTANTS: c_container TYPE scrfname VALUE 'C_CONTAIN'.
** Start-of Selction event
START-OF-SELECTION.
  CALL SCREEN '9003'.
*&      Module  STATUS_9003  OUTPUT
*       text
MODULE status_9003 OUTPUT.
  SET PF-STATUS 'MAIN'.
  SET TITLEBAR 'MAIN00'.
ENDMODULE.                 " STATUS_9003  OUTPUT
*&      Module  USER_COMMAND_9003  INPUT
*       text
MODULE user_command_9003 INPUT.
  CASE sy-ucomm.
** when doing Normal Function
    WHEN 'BACK' OR
         'CANC' OR
         '%EX'.
      LEAVE TO SCREEN 0.
** When dong Save Function
    WHEN 'SAVE'.
      PERFORM sub_convert_data.
** When Doing Print Function
    WHEN 'PRN'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9003  INPUT
*&      Module  text_area  OUTPUT
*       text
MODULE text_area OUTPUT.
** Create Custom Container.
  CREATE OBJECT w_contain
    EXPORTING
      container_name              = c_container
  EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6      .
  IF sy-subrc = 0.
** Create Text Object
    CREATE OBJECT w_textcon
      EXPORTING
        wordwrap_mode     = cl_gui_textedit=>wordwrap_at_windowborder
        parent            = w_contain
      EXCEPTIONS
        error_cntl_create      = 1
        error_cntl_init        = 2
        error_cntl_link        = 3
        error_dp_create        = 4
        gui_type_not_supported = 5
        OTHERS                 = 6        .
    IF sy-subrc = 0.
** Get the text entered
    ENDIF.
  ENDIF.
ENDMODULE.                 " text_area  OUTPUT
*&      Form  sub_convert_data
*       text
FORM sub_convert_data .
  DATA: lt_data TYPE STANDARD TABLE OF char80.
** Clear Local table
  CLEAR lt_data.
  IF NOT w_textcon IS INITIAL.
** Call The Covert Method
    CALL METHOD w_textcon->get_text_as_r3table
      EXPORTING
        only_when_modified     = cl_gui_textedit=>false
      IMPORTING
        table                  = lt_data
      EXCEPTIONS
        error_dp               = 1
        error_cntl_call_method = 2
        error_dp_create        = 3
        potential_data_loss    = 4
        OTHERS                 = 5.
  ENDIF.
  IF NOT lt_data IS INITIAL.
** Now Lets move the data and Call on the Smartform or Save the Data as
** per wish
    SET SCREEN 0.
  ENDIF.
ENDFORM.                    " sub_convert_data
Hope That Helps
Anirban M.