ALV to PDF output format

Question

Hi Experts,
I am using following code to convert Alv report to pdf format..........can i change the number of output lines shown in the pdf
DATA :
       WA_TSTC              TYPE TSTC,
       WA_TSTCP             TYPE TSTCP,
       SM30_PARA            TYPE TSTCP-PARAM,
       IT_PARAM             TYPE STANDARD TABLE OF STRING,
       WA_PARAM             TYPE STRING,
       GV_REPORT            TYPE SY-REPID,
       GV_PARAMS            TYPE PRI_PARAMS,
       GV_VALID             TYPE STRING,
       GV_RQIDENT           TYPE TSP01-RQIDENT,
       GT_RSPARAMS          TYPE STANDARD TABLE OF RSPARAMS,
       WA_TSP01             TYPE TSP01,
       GV_SPOOL             TYPE TSP01-RQIDENT,
       GV_RQ2NAME           TYPE TSP01-RQ2NAME,
       PDF_BYTECOUNT         TYPE  I,
       PDF_SPOOLID           LIKE  TSP01-RQIDENT,
       LIST_PAGECOUNT       TYPE I,
       BTC_JOBNAME           TYPE  TBTCJOB-JOBNAME,
       BTC_JOBCOUNT         TYPE  TBTCJOB-JOBCOUNT,
       BIN_FILE             TYPE XSTRING,
       GT_PDF               TYPE STANDARD TABLE OF TLINE,
       GV_BIN_FILESIZE      TYPE I, " Binary File Size
       GV_FILE_NAME         TYPE STRING,
       GV_FILE_PATH         TYPE STRING,
       GV_FULL_PATH         TYPE STRING.
" Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT000.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (23) TEXT001 FOR FIELD P_TCODE.
PARAMETERS P_TCODE TYPE TSTC-TCODE OBLIGATORY.
SELECTION-SCREEN END OF LINE.
"Text
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (70) TEXT002.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN: END OF BLOCK B1.
LOAD-OF-PROGRAM.
   TEXT000 =  'Selection Criteria'.
   TEXT001 =  '@8T@ Transaction Code'.
   TEXT002 =  '*Enter Tcode->Select Print Option->Execute report->Save PDF File'.
START-OF-SELECTION.
   "Fetch Tcode and Report info
   PERFORM FETCH_TCODE_REPORT.
   "Call Transaction
   PERFORM CALL_TRANSACTION.
   "Get Spool and Generate PDF
   PERFORM GET_SPOOL_TO_PDF.
*&      Form  FETCH_TCODE_REPORT
*       text
*  -->  p1        text
*  <--  p2        text
FORM FETCH_TCODE_REPORT .
   DATA :
          FLG_TCODE TYPE CHAR1,
          CHR1      TYPE CHAR40,
          CHR2      TYPE CHAR40.
   SELECT SINGLE * FROM TSTC
     INTO WA_TSTC WHERE TCODE = P_TCODE
                   AND PGMNA NE SPACE
                   AND DYPNO  = 1000. "only Standard Report
   IF SY-SUBRC =  0.
     FLG_TCODE = 'X'.
     GV_REPORT = WA_TSTC-PGMNA.
   ELSE.
     SELECT SINGLE * FROM
        TSTCP INTO WA_TSTCP
        WHERE TCODE = P_TCODE
          AND PARAM NE SPACE.
     SPLIT WA_TSTCP-PARAM AT ';' INTO TABLE IT_PARAM.
     LOOP AT IT_PARAM INTO WA_PARAM.
       IF WA_PARAM CS '-REPORT='.
         FLG_TCODE = 'X'.
         SPLIT WA_PARAM AT '-REPORT=' INTO CHR1 CHR2.
         GV_REPORT = CHR2.
         EXIT.
       ENDIF.
     ENDLOOP.
   ENDIF.
   IF FLG_TCODE IS INITIAL.
     MESSAGE 'In Valid Tcode' TYPE 'I' DISPLAY LIKE 'E'.
     LEAVE TO TRANSACTION SY-TCODE.
   ENDIF.
   CALL FUNCTION 'AUTH_CHECK_TCODE'
     EXPORTING
       TCODE                          = P_TCODE
     EXCEPTIONS
       PARAMETER_ERROR                = 1
       TRANSACTION_NOT_FOUND          = 2
       TRANSACTION_LOCKED             = 3
       TRANSACTION_IS_MENU            = 4
       MENU_VIA_PARAMETER_TRANSACTION = 5
       NOT_AUTHORIZED                 = 6
       OTHERS                         = 7.
   IF SY-SUBRC <> 0.
     MESSAGE 'No Authorization for Tcode' TYPE 'I' DISPLAY LIKE 'E'.
     LEAVE TO TRANSACTION SY-TCODE.
   ENDIF.
ENDFORM.                    " FETCH_TCODE_REPORT
*&      Form  CALL_TRANSACTION
*       text
*  -->  p1        text
*  <--  p2        text
FORM CALL_TRANSACTION .
   CALL FUNCTION 'GET_PRINT_PARAMETERS'
     IMPORTING
       OUT_PARAMETERS = GV_PARAMS
       VALID          = GV_VALID.
   IF SY-SUBRC <> 0.
   ENDIF.
   "Spool Mode, Default will be Spool Only
   CLEAR GV_PARAMS-PRIMM.
   "Spool Request Name, Pass Report name , Only 1st 12 Chars
   GV_RQ2NAME      = GV_REPORT.
   GV_PARAMS-PLIST = GV_RQ2NAME.
   SUBMIT (GV_REPORT) VIA SELECTION-SCREEN
                     TO SAP-SPOOL
                     SPOOL PARAMETERS GV_PARAMS
                     WITHOUT SPOOL DYNPRO
                     AND RETURN.
   IF SY-SUBRC NE 0.
     MESSAGE 'Unable to Execute Report' TYPE 'I' DISPLAY LIKE 'E'.
     LEAVE TO TRANSACTION SY-TCODE.
   ENDIF.
   WAIT UP TO 2 SECONDS.
ENDFORM.                    " CALL_TRANSACTION
*&      Form  GET_SPOOL_TO_PDF
*       text
*  -->  p1        text
*  <--  p2        text
FORM GET_SPOOL_TO_PDF .
   DATA :
       LV_RQCRETIME  TYPE TSP01-RQCRETIME,
       LV_RETURNCODE TYPE I.
   CONCATENATE SY-DATUM '%' INTO LV_RQCRETIME.
   SELECT MAX( RQIDENT ) INTO GV_SPOOL FROM TSP01  WHERE RQCLIENT = SY-MANDT
                                                   AND   RQ2NAME  = GV_RQ2NAME
                                                   AND   RQOWNER  = SY-UNAME
                                                   AND   RQCRETIME LIKE LV_RQCRETIME.
   CHECK SY-SUBRC = 0.
   SELECT SINGLE * FROM TSP01
     INTO WA_TSP01 WHERE RQIDENT = GV_SPOOL.
   IF WA_TSP01 IS INITIAL.
     MESSAGE 'No Valid Spool Request Found' TYPE 'I' DISPLAY LIKE 'E'.
     LEAVE TO TRANSACTION SY-TCODE.
   ENDIF.
   CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
     EXPORTING
       SRC_SPOOLID              = GV_SPOOL
       NO_DIALOG                = ABAP_FALSE
     IMPORTING
       PDF_BYTECOUNT            = PDF_BYTECOUNT
       PDF_SPOOLID              = PDF_SPOOLID
       BTC_JOBNAME              = BTC_JOBNAME
       BTC_JOBCOUNT             = BTC_JOBCOUNT
     TABLES
       PDF                      = GT_PDF
     EXCEPTIONS
       ERR_NO_ABAP_SPOOLJOB     = 1
       ERR_NO_SPOOLJOB          = 2
       ERR_NO_PERMISSION        = 3
       ERR_CONV_NOT_POSSIBLE    = 4
       ERR_BAD_DESTDEVICE       = 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.
   CHECK GT_PDF IS NOT INITIAL.
   GV_FILE_NAME = P_TCODE.
* To display File SAVE dialog window
   CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
     EXPORTING
       WINDOW_TITLE         = 'Save Output as PDF' "LV_TITLE
       DEFAULT_EXTENSION    = 'PDF'
       FILE_FILTER          = '(*.pdf)|*.pdf|'
       DEFAULT_FILE_NAME    = GV_FILE_NAME
     CHANGING
       FILENAME             = GV_FILE_NAME
       PATH                 = GV_FILE_PATH
       FULLPATH             = GV_FULL_PATH
     EXCEPTIONS
       CNTL_ERROR           = 1
       ERROR_NO_GUI         = 2
       NOT_SUPPORTED_BY_GUI = 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.
* Use the FM GUI_DOWNLOAD to download the generated PDF file onto the
* presentation server
   CHECK GV_FULL_PATH IS NOT INITIAL.
   CALL FUNCTION 'GUI_DOWNLOAD'
     EXPORTING
       BIN_FILESIZE            = GV_BIN_FILESIZE
       FILENAME                = GV_FULL_PATH
       FILETYPE                = 'BIN'
     TABLES
       DATA_TAB                = GT_PDF
     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 'File Generated Successfully' TYPE 'S'.
   ELSE.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
ENDFORM.                    " GET_SPOOL_TO_PDF

Answer 1

Hi ,
Try this procedure...
DATA:SSFCTRLOP    TYPE SSFCTRLOP.
DATA:SSFCOMPOP    TYPE SSFCOMPOP.
DATA:IT_OTF_DATA  TYPE SSFCRESCL.
DATA:IT_OTF_FINAL TYPE ITCOO OCCURS 0 WITH HEADER LINE.
DATA:BIN_FILESIZE TYPE I.
DATA:IT_PDFDATA   TYPE TABLE OF TLINE.
DATA:IT_PDF       TYPE TABLE OF SOLISTI1.
DATA: ST_JOB_OUTPUT_INFO TYPE SSFCRESCL,
      ST_DOCUMENT_OUTPUT_INFO TYPE SSFCRESPD,
      ST_JOB_OUTPUT_OPTIONS TYPE SSFCRESOP,
      IT_DOCS TYPE STANDARD TABLE OF DOCS,
      IT_LINES TYPE STANDARD TABLE OF TLINE,
      V_NAME TYPE STRING,
      V_PATH TYPE STRING,
      V_FULLPATH TYPE STRING,
      V_FILTER TYPE STRING,
      V_UACT TYPE I,
      V_GUIOBJ TYPE REF TO CL_GUI_FRONTEND_SERVICES,
      V_FILENAME TYPE STRING,
      V_BIN_FILESIZE TYPE I.
****** PDF
TYPES: T_DOCUMENT_DATA  TYPE  SODOCCHGI1,
       T_PACKING_LIST   TYPE  SOPCKLSTI1,
       T_ATTACHMENT     TYPE  SOLISTI1,
       T_BODY_MSG       TYPE  SOLISTI1,
       T_RECEIVERS      TYPE  SOMLRECI1,
       T_PDF            TYPE  TLINE.
DATA : W_DOCUMENT_DATA  TYPE  T_DOCUMENT_DATA,
       W_PACKING_LIST   TYPE  T_PACKING_LIST,
       W_ATTACHMENT     TYPE  T_ATTACHMENT,
       W_BODY_MSG       TYPE  T_BODY_MSG,
       W_RECEIVERS      TYPE  T_RECEIVERS,
       W_PDF            TYPE  T_PDF.
DATA : I_DOCUMENT_DATA  TYPE STANDARD TABLE OF T_DOCUMENT_DATA,
       I_PACKING_LIST   TYPE STANDARD TABLE OF T_PACKING_LIST,
       I_ATTACHMENT     TYPE STANDARD TABLE OF T_ATTACHMENT,
       I_BODY_MSG       TYPE STANDARD TABLE OF T_BODY_MSG,
       I_RECEIVERS      TYPE STANDARD TABLE OF T_RECEIVERS,
       I_PDF            TYPE STANDARD TABLE OF T_PDF.
DATA : G_SENT_TO_ALL   TYPE SONV-FLAG,
       G_TAB_LINES     TYPE I.
    CALL FUNCTION 'CONVERT_OTF_2_PDF'
      IMPORTING
        BIN_FILESIZE           = V_BIN_FILESIZE
      TABLES
        OTF                    = ST_JOB_OUTPUT_INFO-OTFDATA
        DOCTAB_ARCHIVE         = IT_DOCS
        LINES                  = IT_LINES
      EXCEPTIONS
        ERR_CONV_NOT_POSSIBLE  = 1
        ERR_OTF_MC_NOENDMARKER = 2
        OTHERS                 = 3.
**** ........................GET THE FILE NAME TO STORE....................
    CONCATENATE 'Order Vs Billing' '.pdf' INTO V_NAME.
    CREATE OBJECT V_GUIOBJ.
    CALL METHOD V_GUIOBJ->FILE_SAVE_DIALOG
      EXPORTING
        DEFAULT_EXTENSION = 'pdf'
        DEFAULT_FILE_NAME = V_NAME
        FILE_FILTER       = V_FILTER
      CHANGING
        FILENAME          = V_NAME
        PATH              = V_PATH
        FULLPATH          = V_FULLPATH
        USER_ACTION       = V_UACT.
    IF V_UACT = V_GUIOBJ->ACTION_CANCEL.
      EXIT.
    ENDIF.
**** ..................................DOWNLOAD AS FILE....................
    MOVE V_FULLPATH TO V_FILENAME.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        BIN_FILESIZE            = V_BIN_FILESIZE
        FILENAME                = V_FILENAME
        FILETYPE                = 'BIN'
      TABLES
        DATA_TAB                = IT_LINES
      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.
  ENDIF.
if it's helpfur for you.. pls give reward points.