on 03-18-2009 2:09 PM
boys like you set the gui_dawnload to hang more in a single pdf file.
I thought of doing so but does not work :
FORM PDF_SPOOL using ls_job_info TYPE ssfcrescl.
va1 type c .
DATA: spoolids TYPE tsfspoolid ,
wa_spoolids TYPE rspoid,
numbytes TYPE i,
file LIKE rlgrap-filename.
REFRESH spoolids.
CLEAR wa_spoolids.
MOVE ls_job_info-spoolids TO spoolids.
READ TABLE spoolids INTO wa_spoolids INDEX 1.
*
REFRESH: pdf.
CLEAR: pdf.
IF wa_spoolids IS NOT INITIAL.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = wa_spoolids
NO_DIALOG =
DST_DEVICE =
PDF_DESTINATION =
IMPORTING
pdf_bytecount = numbytes
PDF_SPOOLID = pdfspoolid
OTF_PAGECOUNT =
BTC_JOBNAME = jobname
BTC_JOBCOUNT = jobcount
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_dstdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11
OTHERS = 12.
*LOOP AT PDF.
*
*APPEND PDF TO T_PDF .
*
*ENDLOOP.
a = numbytes + a.
IF sy-subrc = 0.
DATA : wa_file TYPE string.
CLEAR : wa_file.
MOVE file TO wa_file.
*CONCATENATE 'C:\ANTEPRIMA DI STAMPA' SY-UZEIT '.PDF' INTO WA_FILE.
*CONCATENATE 'C:\ANTEPRIMA DI STAMPA' var1 '.PDF' INTO WA_FILE.
*MOVE URL TO WA_FILE.
DATA : BEGIN OF TAB OCCURS 0,
LINE(100),
END OF TAB.
*
CLEAR TAB.
*
MOVE 'CIAO' TO TAB-LINE.
APPEND TAB.
loop at tab.
move tab-line to TABprova-line.
append TABprova.
endloop.
tab] = TABprova[.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = numbytes
FILENAME = 'C:\ANTEPRIMA DI STAMPA.xls'"WA_FILE
FILETYPE = 'ASC'
APPEND = 'X'
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
SHOW_TRANSFER_STATUS = ABAP_TRUE
IMPORTING
FILELENGTH =
TABLES
DATA_TAB = tab
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " PDF_SPOOL
help meeeeeeeeeeeeeeeee.
Are you want to download many spools into single PDF file?
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
74 | |
26 | |
11 | |
10 | |
7 | |
6 | |
4 | |
4 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.