Print script in pdf format

Question

Hi all,
I have a script and i need to print it in pdf format ,right now its printing in orginal or normal .Please let me know what i should do in order to print it in pdf form, i don't want to save it somewhere and then print it,i need to print it directly rather than saving it.
Any help would be greatly appreciated
Thanks
deepthi

Answer 1

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                              = 'ZZ_PICK_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.