topic Re: scripts(label printing) in Application Development and Automation Discussions

scripts(label printing)

Former Member — Mon, 17 Jul 2006 10:17:23 GMT

Hi everyone,

I have created a Form which contains 2 main windows (Main 00 and Main 01)..I am trying to print labels using these windows calling from the program, but i am unable to do..How do i call 2 main windows from the Print Progarm? please anyone can help in creating Labels of the customer addresses...Its very urjent.

Thanks in Advance,

Gupta.G

Re: scripts(label printing)

madan_ullasa — Mon, 17 Jul 2006 10:21:01 GMT

hi,

try passing the window name in your 'write_form' function module.

reward points if useful.

regards,

Madan..

Re: scripts(label printing)

Former Member — Mon, 17 Jul 2006 10:22:14 GMT

Please include command new page in MAIN window .

/: NEW-WINDOW

Re: scripts(label printing)

Former Member — Tue, 18 Jul 2006 06:27:51 GMT

Hi,

Thanks for ur reply..but the problem is,

i have used a write_form's...but if i am calling 2 main windows from the form, it displays a message that Main window does not exist...plz find the below code that i have executed.

TABLES: ADRC.

DATA: BEGIN OF IT_ADRC OCCURS 0,

ADDRNUMBER LIKE ADRC-ADDRNUMBER,

NAME1 LIKE ADRC-NAME1,

NAME2 LIKE ADRC-NAME2,

END OF IT_ADRC.

SELECT-OPTIONS: S_ADDRNO FOR ADRC-ADDRNUMBER.

SELECT ADDRNUMBER

NAME1

NAME2

FROM ADRC

INTO CORRESPONDING FIELDS OF TABLE IT_ADRC

WHERE ADDRNUMBER IN S_ADDRNO.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

DEVICE = 'PRINTER'
DIALOG = 'X'

FORM = 'ZJ_LABELS'

LANGUAGE = SY-LANGU.

IMPORTING
LANGUAGE = SY-LANGU.

LOOP AT IT_ADRC.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN 00'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN 01'.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'.

Re: scripts(label printing)

Former Member — Tue, 18 Jul 2006 06:27:53 GMT

Hi,

Thanks for ur reply..but the problem is,

i have used 2 write_form's...but if i am calling 2 main windows from the form, it displays a message that Main window does not exist...plz find the below code that i have executed.

TABLES: ADRC.

DATA: BEGIN OF IT_ADRC OCCURS 0,

ADDRNUMBER LIKE ADRC-ADDRNUMBER,

NAME1 LIKE ADRC-NAME1,

NAME2 LIKE ADRC-NAME2,

END OF IT_ADRC.

SELECT-OPTIONS: S_ADDRNO FOR ADRC-ADDRNUMBER.

SELECT ADDRNUMBER

NAME1

NAME2

FROM ADRC

INTO CORRESPONDING FIELDS OF TABLE IT_ADRC

WHERE ADDRNUMBER IN S_ADDRNO.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

DEVICE = 'PRINTER'
DIALOG = 'X'

FORM = 'ZJ_LABELS'

LANGUAGE = SY-LANGU.

IMPORTING
LANGUAGE = SY-LANGU.

LOOP AT IT_ADRC.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN 00'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN 01'.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'.

Re: scripts(label printing)

Former Member — Tue, 18 Jul 2006 07:28:05 GMT

Hi Jagadish,

In the code the MAIN 00 and MAIN 01 are the same (i.e) you cannot create two MAIN windows whereas you have created an instance of the MAIN window and named them MAIn 00 and MAIN 01.

With respect to the code, the only change has to be

LOOP AT IT_ADRC.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LAB'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

ENDLOOP.

It has to be just MAIN. This will definitely work.

Reward if helpful.

Regards,

Tushar