print and preview pdf of script without saving
hi,
can anyone check the code and tell me what iam missing
I don't want to save the pdf file i want to print it or see it under print preview.
WAITING FOR REPLIES
DATA: PDFTAB TYPE TABLE OF TLINE WITH HEADER LINE,
DATATAB TYPE TABLE OF ITCOO WITH HEADER LINE.
DATA: BINFILESIZE TYPE I,
FILE_NAME TYPE STRING,
FILE_PATH TYPE STRING,
FULL_PATH TYPE STRING.
data: begin of itcpp.
include structure itcpo.
data: end of itcpp.
itcpp-tdcopies = 1.
itcpp-tdimmed = 'X'.
itcpp-tddelete = 'X'.
itcpp-tdnewid = ' '.
ITCPP-tddest = 'LP01'.
ITCPP-tdgetotf = 'X'.
itcpp-tdpreview = 'X'.
Call function 'OPEN_FORM'
exporting
device = 'PRINTER'
dialog = 'X'
form = 'Z_LIST '
form = space
language = sy-langu
options = itcpp.
call function 'START_FORM'
exporting
ARCHIVE_INDEX =
form = 'ZTEST'
LANGUAGE = ' '
STARTPAGE = ' '
PROGRAM = ' '
MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
OTHERS = 7
.
LOOP AT ITAB.
call function 'WRITE_FORM'
exporting
element = 'HEAD'
function = 'SET'
window = 'MAIN'
.
ENDLOOP.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT = itcpp
RDI_RESULT =
TABLES
OTFDATA = DATATAB[]
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SEND_ERROR = 3
SPOOL_ERROR = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
ARCHIVE_INDEX = ' '
IMPORTING
BIN_FILESIZE = BINFILESIZE
TABLES
OTF = DATATAB[]
LINES = PDFTAB[]
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4
.
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.
I am seeing data in datatab and pdf tab
Pls suggest the changes to be made
Thanks in advance