Hi,
Can u please check sap note 1066147.
Actually one of my program I wrote this all logic which i am pasting for u now,It is working Fine
DATA: IT_OTF TYPE STANDARD TABLE OF ITCOO,
IT_DOCS TYPE STANDARD TABLE OF DOCS,
IT_LINES TYPE STANDARD TABLE OF TLINE,
ST_JOB_OUTPUT_INFO TYPE SSFCRESCL,
ST_DOCUMENT_OUTPUT_INFO TYPE SSFCRESPD,
ST_JOB_OUTPUT_OPTIONS TYPE SSFCRESOP,
ST_OUTPUT_OPTIONS TYPE SSFCOMPOP,
ST_CONTROL_PARAMETERS TYPE SSFCTRLOP,
V_LEN_IN TYPE SO_OBJ_LEN,
V_LANGUAGE TYPE SFLANGU VALUE 'E',
V_E_DEVTYPE TYPE RSPOPTYPE,
V_BIN_FILESIZE TYPE I,
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.
LOOP AT IT_002.
CLEAR SEQ_NUM.
SELECT SINGLE SEQNR FROM HRPY_RGDIR INTO SEQ_NUM WHERE PERNR = IT_002-PERNR AND
FPBEG >= P_BEGDA
AND ABKRS IN S_ABKRS
AND FPBEG <= P_ENDDA
AND FPEND >= P_BEGDA
AND FPEND <= P_ENDDA
AND IPEND = P_ENDDA
AND PAYTY = P_SPR.
IF SY-SUBRC = 0.
SELECT SINGLE
NACHN
VORNA
FROM PA0002
INTO (IT_002-NACHN , IT_002-VORNA )
WHERE PERNR = IT_002-PERNR
AND ENDDA = '99991231'.
CLEAR ENAME.
SELECT SINGLE
BUKRS
FROM PA0001
INTO CCODE
WHERE PERNR = IT_002-PERNR
AND ENDDA = '99991231'.
CONCATENATE IT_002-VORNA IT_002-NACHN INTO ENAME SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
EXPORTING
I_LANGUAGE = V_LANGUAGE
I_APPLICATION = 'SAPDEFAULT'
IMPORTING
E_DEVTYPE = V_E_DEVTYPE
EXCEPTIONS
NO_LANGUAGE = 1
LANGUAGE_NOT_INSTALLED = 2
NO_DEVTYPE_FOUND = 3
SYSTEM_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.
ST_OUTPUT_OPTIONS-TDPRINTER = V_E_DEVTYPE.
ST_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
ST_CONTROL_PARAMETERS-GETOTF = 'X'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZHR_ESS_PAYSLIP_TO_PDF1'
IMPORTING
FM_NAME = FNAME
EXCEPTIONS
OTHERS = 3.
DATA: SF_CONTROL_PARAMETERS TYPE SSFCTRLOP.
SF_CONTROL_PARAMETERS-DEVICE = 'PRINTER'.
SF_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
IF PDF = 'X' .
SF_CONTROL_PARAMETERS-PREVIEW = 'X'.
SF_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
SF_OUTPUT_OPTIONS-TDNEWID = 'X'.
sf_control_parameters-getotf = 'X'.
SF_CONTROL_PARAMETERS-LANGU = SY-LANGU.
SF_OUTPUT_OPTIONS-TDDEST = 'ZPAY'. " 'LOCL'
ENDIF.
CALL FUNCTION FNAME
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = ST_CONTROL_PARAMETERS
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
OUTPUT_OPTIONS = ST_OUTPUT_OPTIONS
* USER_SETTINGS = 'X'
PINFO = $PINFO
PFORM = P_FORM1
ccode = s_co "INSERT by Kumar gourav
IMPORTING
DOCUMENT_OUTPUT_INFO = ST_DOCUMENT_OUTPUT_INFO
JOB_OUTPUT_INFO = ST_JOB_OUTPUT_INFO
JOB_OUTPUT_OPTIONS = ST_JOB_OUTPUT_OPTIONS
* JOB_OUTPUT_OPTIONS =
TABLES
IT_DATA = IT_DATA
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 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.
ELSE.
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.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Hope IT IS littile helpful for you.
Gourav.
Bluesky
