cancel
Showing results for 
Search instead for 
Did you mean: 

scripts print program

Former Member
0 Kudos

I have written one script which is having two element texts one is header and another ones item.

i am getting the error in my print progrm like "NO NAME FREE FOR INTERNAL REPORT COPY. SAVE THE REPORT FIRST"

my print program is ...........

REPORT ZTABPRINT .

TABLES ZEMP.

DATA ITAB LIKE ZEMP OCCURS 2 WITH HEADER LINE.

SELECT * FROM ZEMP INTO TABLE ITAB.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'

DEVICE = 'PRINTER'

DIALOG = 'X'

FORM = 'ZTAB'

LANGUAGE = SY-LANGU.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

FUNCTION = 'SET'

TYPE = 'TOP'

WINDOW = 'MAIN'.

LOOP AT ITAB.

MOVE ITAB TO ZEMP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMNT = 'ITMES'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'.

can anybody help me pls what is wrong in this?

Regards,

pandu.

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
0 Kudos

Hi

TABLES ZEMP.

DATA ITAB LIKE ZEMP OCCURS 2 WITH HEADER LINE.

SELECT * FROM ZEMP INTO TABLE ITAB.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'

DEVICE = 'PRINTER'

DIALOG = 'X'

FORM = 'ZTAB'

LANGUAGE = SY-LANGU.

LOOP AT ITAB.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

FUNCTION = 'SET'

TYPE = 'TOP'

WINDOW = 'MAIN'.

MOVE ITAB TO ZEMP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMNT = 'ITEMS'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'.

check this and see.

have you design ed the form with the text elements HEADER and ITEMS and write the Itab data and see the output

<b>Reward points for useful Answers</b>

Regards

Anji

Former Member
0 Kudos

I have changed the priint program in that way. now iam getting a error like "the element header is not defined in your form"

but i have declared both the text elements.

any clues........

Regards,

pandu.

Former Member
0 Kudos

Hi

In the MAIN window create two text elements and write the data

/E HEADER

  • < write the header data fields>

/E ITEMS

  • <write the item data fields>

and see

<b>Reward points for useful Answers</b>

Regards

Anji

Former Member
0 Kudos

Thank u..

Answers (2)

Answers (2)

Former Member
0 Kudos

ALWAYS REMEMBER TO APPLY THE LOOPING BEFORE AND AFTER THE WRITE_FORM OTYHERWISE ....THE SCRIPT LL NOT RUN.

<b>REWARDS IF HELPFUL

GURU</b>

Former Member
0 Kudos

hi,

se71->form->check->text->tick the include res->append print program->program name->copy

if u did any mistake in form it ll check it out.

for pgm do the debug.

Regards,

Divya