REPORT ZTEST_ABAPTPDF.
TABLES: TSP01.
DATA: MSTR_PRINT_PARMS LIKE PRI_PARAMS,
MC_VALID(1) TYPE C,
MI_BYTECOUNT TYPE I,
MI_LENGTH TYPE I,
MI_RQIDENT LIKE TSP01-RQIDENT.
DATA: MTAB_PDF LIKE TLINE OCCURS 0,
MC_FILENAME TYPE STRING. "LIKE RLGRAP-FILENAME.
*-- SELECTION SCREEN
PARAMETERS: P_REPID LIKE SY-REPID, " Report to execute
P_LINSZ LIKE SY-LINSZ DEFAULT 132, " Line size
P_PAART LIKE SY-PAART DEFAULT 'Z_58_147'. " Paper Format
START-OF-SELECTION.
CONCATENATE 'c:' P_REPID '.pdf' INTO MC_FILENAME. è 다운로드 파일경로
*-- Setup the Print Parmaters
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
COPIES = '1'
DESTINATION = SPACE
EXPIRATION = '1'
NEW_LIST_ID = 'X'
NO_DIALOG = 'X'
USER = SY-UNAME
IMPORTING
OUT_PARAMETERS = MSTR_PRINT_PARMS
VALID = MC_VALID.
IF MSTR_PRINT_PARMS-PDEST = SPACE. MSTR_PRINT_PARMS-PDEST = 'ZP01'. ENDIF.
MSTR_PRINT_PARMS-LINSZ = P_LINSZ.
MSTR_PRINT_PARMS-PAART = P_PAART.
SUBMIT (P_REPID) TO SAP-SPOOL WITHOUT SPOOL DYNPRO
SPOOL PARAMETERS MSTR_PRINT_PARMS
VIA SELECTION-SCREEN AND RETURN.
*-- Find out what the spool number is that was just created
PERFORM GET_SPOOL_NUMBER USING SY-REPID SY-UNAME
CHANGING MI_RQIDENT.
*-- Convert Spool to PDF
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = MI_RQIDENT
NO_DIALOG = SPACE
DST_DEVICE = MSTR_PRINT_PARMS-PDEST
IMPORTING
PDF_BYTECOUNT = MI_BYTECOUNT
TABLES
PDF = MTAB_PDF.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
EXPORTING
BIN_FILESIZE = MI_BYTECOUNT
FILENAME = MC_FILENAME
FILETYPE = 'BIN'
CHANGING
DATA_TAB = MTAB_PDF.
FORM GET_SPOOL_NUMBER USING F_REPID F_UNAME
CHANGING F_RQIDENT.
DATA: LC_RQ2NAME LIKE TSP01-RQ2NAME.
CONCATENATE F_REPID+0(8) F_UNAME+0(3) INTO LC_RQ2NAME SEPARATED BY '_'.
SELECT * FROM TSP01 WHERE RQ2NAME = LC_RQ2NAME
ORDER BY RQCRETIME DESCENDING.
F_RQIDENT = TSP01-RQIDENT. EXIT.
ENDSELECT.
IF SY-SUBRC NE 0. CLEAR F_RQIDENT. ENDIF.
ENDFORM." get_spool_number
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
670 | <b>easy abap 소스 전체 파일 입니다. [188] | sapjoy | 2008.05.01 | 10126 |
669 | REPORT z18_033 [47] | sapjoy | 2008.10.13 | 9031 |
668 | REPORT Z15_003 [49] | sapjoy | 2008.04.15 | 7498 |
667 | report zunicode_027. [4] | sapjoy | 2008.11.21 | 6262 |
666 | REPORT Z20_01. | sapjoy | 2012.08.01 | 5067 |
665 | REPORT z18_03. | sapjoy | 2012.08.01 | 4562 |
664 | Z01_012 [9] | sapjoy | 2006.12.02 | 4552 |
663 | Z_EXPORT_GRAPHIC_FROM_SE78 [1] | sapjoy | 2011.03.28 | 4443 |
662 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
661 | REPORT zsmw0010 | sapjoy | 2010.10.11 | 4313 |
660 | REPORT z18_028 | sapjoy | 2007.04.09 | 4278 |
659 | report zsalv_045 . | sapjoy | 2010.08.20 | 4262 |
658 | Dynamic Table Maintenance [1] | sapjoy | 2006.12.04 | 4094 |
657 | REPORT ZTABLE_UTIL | sapjoy | 2010.10.09 | 4010 |
656 | REPORT Z19_02. | sapjoy | 2012.08.01 | 3930 |
655 | report zsaptip_009 [1] | sapjoy | 2010.12.10 | 3852 |
654 | INCLUDE ZXF04U01 | sapjoy | 2008.12.15 | 3695 |
» | REPORT ZTEST_ABAPTPDF | sapjoy | 2010.10.09 | 3691 |
652 | REPORT Z_3DGRAPH. [1] | sapjoy | 2010.10.17 | 3659 |
651 | REPORT zfalv_011. | sapjoy | 2011.02.16 | 3624 |