Convert SMARTFORMS To PDF

PARAMETERS : p_werks TYPE t001w-werks.
PARAMETERS : p_file LIKE rlgrap-filename DEFAULT 'C:\temp\1.pdf'.

DATA : v_fnam TYPE rs38l_fnam.
DATA : flag TYPE char1.
DATA : file TYPE string.
DATA : mi_bytecount TYPE i.
DATA : lines LIKE tline OCCURS 100 WITH HEADER LINE.


*Control Parameters
DATA : it_ssfctrlop TYPE TABLE OF ssfctrlop.
DATA : wa_ssfctrlop TYPE ssfctrlop.

*Output Options
DATA : it_output_options TYPE TABLE OF ssfcompop.
DATA : wa_output_options TYPE ssfcompop.

*Job Output Info
DATA : it_job_output_info TYPE TABLE OF ssfcrescl.
DATA : wa_job_output_info TYPE ssfcrescl.

*Job Output Options
DATA : it_job_output_options TYPE TABLE OF ssfcresop.
DATA : wa_job_output_options TYPE ssfcresop.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZSAMPLE_FORM'
IMPORTING
fm_name = v_fnam.

wa_ssfctrlop-no_dialog = 'X'.
wa_ssfctrlop-getotf = 'X'.
wa_ssfctrlop-preview = 'X'.
APPEND wa_ssfctrlop TO it_ssfctrlop.

wa_output_options-tdnoprev = 'X'.
wa_output_options-tdtitle = sy-title.
wa_output_options-tdnewid = 'X'.
APPEND wa_output_options TO it_output_options.

CALL FUNCTION v_fnam
EXPORTING
control_parameters = wa_ssfctrlop
output_options = wa_output_options
p_werks = p_werks
IMPORTING
job_output_info = wa_job_output_info
job_output_options = wa_job_output_options.


*Convert to PDF
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_filesize = mi_bytecount
TABLES
otf = wa_job_output_info-otfdata
lines = lines
EXCEPTIONS
err_conv_not_possible = 1
err_bad_otf = 2.

*Download to ur PC
file = p_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = mi_bytecount
filename = file
filetype = 'BIN'
TABLES
data_tab = lines[].
IF sy-subrc = 0.
MESSAGE 'Downloaded Successfully' TYPE 'S'.
ENDIF.


Source : http://sap.ittoolbox.com/groups/technical-functional/sap-dev/convert-smartforms-form-in-pdf-1002213