Skip to Content
0
Former Member
Jun 25, 2007 at 07:40 AM

Adobe Print form problem

45 Views

Hello,

I have a funny problem. Well, this is the first Adobe Print form development in my current project.

We have configured ADS and am able to create my Adobe form. I tried testing my form directly and it shows me my form in PRINT PREVIEW properly.

I tried creating the PRINT PROGRAM as shown below. For my suprise, I dont find the PRINT PREVIEW window itself. Niether the OUTPUT.Can anyone help me in correcting my mistake. I hope someone must have had this kind of similar problem before.

<i>* Get the Generated function module name

CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'

EXPORTING

i_name = 'Z_TEST_APPLICATION_FORM'

IMPORTING

e_funcname = l_funcname

  • E_INTERFACE_TYPE =

.

IF sy-subrc <> 0.

WRITE : 'Exit at FP_FUNCTION_MODULE_NAME'.

EXIT.

ENDIF.

  • Set the form processing attributes

l_outputparams-device = 'PRINTER'. "Set the output Device to PRINTER

l_outputparams-getpdf = 'X'. "Launch Print Preview

l_outputparams-preview = 'X'.

l_outputparams-immexit = 'X'.

l_outputparams-NODIALOG = ' '.

*l_outputparams-dest = 'LOCA'.

  • Start the form processing

CALL FUNCTION 'FP_JOB_OPEN'

CHANGING

ie_outputparams = l_outputparams

EXCEPTIONS

CANCEL = 1

USAGE_ERROR = 2

SYSTEM_ERROR = 3

INTERNAL_ERROR = 4

OTHERS = 5

.

IF sy-subrc <> 0.

WRITE : 'Exit at FP_JOB_OPEN'.

EXIT.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

l_docparams-LANGU = 'E'.

*l_docparams-fillable = 'X'.

  • Call our Deferment Application form

CALL FUNCTION l_funcname

EXPORTING

/1bcdwb/docparams = l_docparams

p9230 = p9230

ndgp = l_ndgp

ldate = l_ldate

lsubty = l_lsubty

stext = l_stext

nric = l_nric

ttext = l_ttext

rankname = l_rankname

ndgrant = l_ndgrant.

IF sy-subrc <> 0.

WRITE : 'Exit at l_funcname'.

EXIT.

endif.

  • Close the Form Processing.

CALL FUNCTION 'FP_JOB_CLOSE'

  • IMPORTING

  • E_RESULT =

  • EXCEPTIONS

  • USAGE_ERROR = 1

  • SYSTEM_ERROR = 2

  • INTERNAL_ERROR = 3

  • OTHERS = 4

.

IF sy-subrc <> 0.

WRITE : 'Exit at FP_JOB_CLOSE'.

EXIT.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

WRITE : 'Sucessful'.</i>

Expecting a fast response. Thanks in advance.

Regards

<i><b>Raja Sekhar</b></i>