07-02-2007 5:03 PM
Hello Gurus,
This is my requirement----The report output is to be converted into pdf format using a button.This requirement should not be done by using spool. Is there any way or any function module to meet this requirement.I will be waiting for your reply.
Thanks,
Swapna
07-02-2007 5:08 PM
Hi Swapna,
Try the follwoing Function module at user command:
CONVERT_OTF_2_PDF
Ashvender
07-02-2007 5:09 PM
Hello,
Check this
REPORT Z_TEST.
*
DATA: BEGIN OF ITAB OCCURS 0,
TEXT(72),
END OF ITAB.
*
DATA: FILESIZE TYPE I.
*
DATA: PARAMS LIKE PRI_PARAMS,
VALID TYPE C.
*
DATA: SPOOL_NR LIKE TSP01-RQIDENT,
SPOOL_NR_DEL LIKE TSP01_SP0R-RQID_CHAR.
*
DATA: BEGIN OF PDF_OUTPUT OCCURS 0.
INCLUDE STRUCTURE TLINE.
DATA: END OF PDF_OUTPUT.
*
DATA: DATEI TYPE STRING.
************************************************************************
START-OF-SELECTION.
* Here the Report which you will convert
READ REPORT 'Z_TEST' INTO ITAB.
*
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
CHANGING
DESKTOP_DIRECTORY = DATEI.
*
CALL METHOD CL_GUI_CFW=>FLUSH.
*
CONCATENATE DATEI 'TEST.PDF' INTO DATEI.
*
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
DESTINATION = 'LOCA'
LINE_SIZE = 080
IMMEDIATELY = ' '
NO_DIALOG = 'X'
IMPORTING
OUT_PARAMETERS = PARAMS
VALID = VALID.
*
CHECK VALID <> SPACE.
*
NEW-PAGE PRINT ON PARAMETERS PARAMS NO DIALOG NO-TITLE NO-HEADING.
*
LOOP AT ITAB.
WRITE:/ ITAB.
ENDLOOP.
*
NEW-PAGE PRINT OFF.
*
SPOOL_NR = SY-SPONO.
*
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = SPOOL_NR
IMPORTING
PDF_BYTECOUNT = FILESIZE
TABLES
PDF = PDF_OUTPUT.
*
SPOOL_NR_DEL = SPOOL_NR.
*
CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'
EXPORTING
SPOOLID = SPOOL_NR_DEL.
*
*
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
EXPORTING
BIN_FILESIZE = FILESIZE
FILENAME = DATEI
FILETYPE = 'BIN'
CHANGING
DATA_TAB = PDF_OUTPUT[].
*
CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
EXPORTING
DOCUMENT = DATEI.
*
END-OF-SELECTION.
Vasanth