Barcode in a Report

[Former Member]

Hi friends,

I am trying to print Order Number in barcode.Even though i am able to print it in the output i am not able to display the whole report.

Suppose i am writing barcode in the report after displaying 5 lines of data, I am able to print the the whole report perfectly but when it comes to display on the screen, all the lines after the barcode are not displayed.

My requirement is i should be able to display whole report and also be able to print whole report.

Here is the code:

WRITE:/ ' Customer : ',15 dcust, 80 fmatno.

SKIP.

WRITE:/ ' Plant :', 15 gs_plant,

60 'Customer part #:', 80 gs_cust_part.

SKIP 1.

WRITE: / ' Order : ',21 sorder ,

32 'Total Qty :', 45 qty.

SKIP 1.

WRITE:/ ' Order# : ',15 gv_orderno.

NEW-PAGE PRINT ON NO-HEADING LINE-SIZE 132.

FORMAT COLOR OFF INTENSIFIED OFF.

PRINT-CONTROL FUNCTION 'BC25I'.

WRITE: gv_orderno NO-GAP.

PRINT-CONTROL FUNCTION 'ESCAP'.

WRITE: ' ' NO-GAP.

..............rest of the report code.

I am able to print whole report but report display i sonly upto 3 lines .

Once 'new-page print on' statement begins rest of the report is not displayed.

I tried omiting this line but the print command on the LIST menu on the report doesn't print the order in barcode. It is just displayed as normal order number.

I am not sure how to proceed further.

Thanks,

Dev

[Former Member]

Hi friends,

I am trying to print Order Number in barcode.Even though i am able to print it in the output i am not able to display the whole report.

Suppose i am writing barcode in the report after displaying 5 lines of data, I am able to print the the whole report perfectly but when it comes to display on the screen, all the lines after the barcode are not displayed.

My requirement is i should be able to display whole report and also be able to print whole report.

Here is the code:

WRITE:/ ' Customer : ',15 dcust, 80 fmatno.

SKIP.

WRITE:/ ' Plant :', 15 gs_plant,

60 'Customer part #:', 80 gs_cust_part.

SKIP 1.

WRITE: / ' Order : ',21 sorder ,

32 'Total Qty :', 45 qty.

SKIP 1.

WRITE:/ ' Order# : ',15 gv_orderno.

NEW-PAGE PRINT ON NO-HEADING LINE-SIZE 132.

FORMAT COLOR OFF INTENSIFIED OFF.

PRINT-CONTROL FUNCTION 'BC25I'.

WRITE: gv_orderno NO-GAP.

PRINT-CONTROL FUNCTION 'ESCAP'.

WRITE: ' ' NO-GAP.

..............rest of the report code.

I am able to print whole report but report display i sonly upto 3 lines .

Once 'new-page print on' statement begins rest of the report is not displayed.

I tried omiting this line but the print command on the LIST menu on the report doesn't print the order in barcode. It is just displayed as normal order number.

I am not sure how to proceed further.

Thanks,

Dev

[Former Member]

Looks like barcode size is huge and see the font size of barcode ?

[Former Member]

They print perfectly the whole report when i use 'new-page print on...' statement right at the begining of the first write statement of the report. But i am unable to see the report output on the screen.

[Former Member]

Did you use like this :

NEW-PAGE PRINT ON

NO-HEADING

NO-TITLE

LINE-SIZE 132

LINE-COUNT 65

COPIES 1

NO DIALOG

KEEP IN SPOOL ''

DESTINATION d_dest

ARCHIVE MODE '1'

IMMEDIATELY 'X'.

[Former Member]

I found the solution by putting a checkbox on the selection screen whether to print or not.

Here is the code:

if cb_print = space.

NEW-PAGE .

else.

NEW-PAGE PRINT ON IMMEDIATELY 'X'

NO-HEADING LINE-SIZE 132.

endif.

If print only option is selected, report will be printed directly else report out put is displayed on the screen

Thanks for your suggestion Seshu.