Printing report directly from printer

Question

Hi,
I need a small information.if any one of our guys can give me some info that would be great.
I am writing a ABAP report now. lets say when we write 'hello world' in code and F8  program o/p will show 'hello world' right. I need to print this through user default printer automatically...might be pop-up for confirmation would help.
Thanks in advance...
Raj

Answer 1

Hi Rich,
Calling program is
REPORT ZTESTRAJ1 .
parameters:p_date like sy-datum.
DATA: SELTAB     TYPE TABLE OF RSPARAMS,
      SELTAB_WA  LIKE LINE OF SELTAB.
start-of-selection.
      CLEAR SELTAB_WA.
MOVE: 'p_date' TO SELTAB_WA-SELNAME,
      'P'     TO SELTAB_WA-KIND,      " PARAMETER
      sy-datum    TO SELTAB_WA-LOW.
APPEND SELTAB_WA TO SELTAB.
CLEAR SELTAB_WA.
MOVE: 'p_matnr' TO SELTAB_WA-SELNAME,
      'P'     TO SELTAB_WA-KIND,      " PARAMETER
      '1233344'  TO SELTAB_WA-LOW.
APPEND SELTAB_WA TO SELTAB.
SUBMIT Ztestraj with p_date eq sy-datum
                with p_uname eq sy-uname
                with p_matnr eq '122333' and return.
if sy-subrc = 0.
write 'Printed'.
endif.
Here is the program Ztestraj
parameters:
p_matnr like mara-matnr,
p_date like sy-datum,
p_uname like sy-uname.
data:  l_matnr like mcha-matnr.
start-of-selection.
l_matnr = p_matnr.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  EXPORTING
    INPUT              = l_matnr
IMPORTING
   OUTPUT             =  l_matnr
EXCEPTIONS
  LENGTH_ERROR       = 1
  OTHERS             = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
WRITE:  L_MATNR.
DATA: PARAMS LIKE PRI_PARAMS,
      DAYS(1)  TYPE N VALUE 2,
      COUNT(3) TYPE N VALUE 1,
      VALID    TYPE C.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
  EXPORTING DESTINATION           = 'LOCL'
            COPIES                = COUNT
            LIST_NAME             = 'ZTESTRAJ'
            LIST_TEXT             = 'SUBMITTO SAP-SPOOL'
            IMMEDIATELY           = 'X'
            RELEASE               = 'X'
            NEW_LIST_ID           = 'X'
            EXPIRATION            = DAYS
            LINE_SIZE             = 80
            LINE_COUNT            = 120
            LAYOUT                = 'X_44_120'
           SAP_COVER_PAGE        = 'X'
            COVER_PAGE            = 'X'
           RECEIVER              = 'SAP*'
           DEPARTMENT            = 'System'
            NO_DIALOG             = 'X'
  IMPORTING OUT_PARAMETERS        = PARAMS
            VALID                 = VALID.
IF VALID <> SPACE.
  SUBMIT ztestraj TO SAP-SPOOL
    SPOOL PARAMETERS PARAMS
    WITHOUT SPOOL DYNPRO and return.
    if sy-subrc = 0.
    endif.
ENDIF.