cancel
Showing results for 
Search instead for 
Did you mean: 

appending pdf with gui_download

Former Member
0 Kudos

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.

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
0 Kudos

Are you want to download many spools into single PDF file?

Answers (0)