Barcodes on reports (NOT SAPSCRIPT)

[Former Member]

Hello everybody in this forum,

does anybody know, how to print a barcode on a simple ABAP-report?

I recently read the docu about PRINT-CONTROL but I was not able to benefit of the explanations given in the way that the solution is clear now.

I tried with our own SPAD-device type and checked the table entries on TSP03 and T022D. As entries exist, I received an hexcode like '1B28733370323437303054'

WRITE : /.

PRINT-CONTROL FUNCTION 'SBP01'.

WRITE : '123456789'.

PRINT-CONTROL FUNCTION 'SBS01'.

But how to continue? Or maybe this ain't work in that way!

Thank you very much in advance.

Regards

Markus

[Former Member]

Hello everybody in this forum,

does anybody know, how to print a barcode on a simple ABAP-report?

I recently read the docu about PRINT-CONTROL but I was not able to benefit of the explanations given in the way that the solution is clear now.

I tried with our own SPAD-device type and checked the table entries on TSP03 and T022D. As entries exist, I received an hexcode like '1B28733370323437303054'

WRITE : /.

PRINT-CONTROL FUNCTION 'SBP01'.

WRITE : '123456789'.

PRINT-CONTROL FUNCTION 'SBS01'.

But how to continue? Or maybe this ain't work in that way!

Thank you very much in advance.

Regards

Markus

[abdul_hakim]

I wonder whether you will have this functionality in reporting.

Cheers,

Abdul Hakim

[Former Member]

hai markus,

here is a sample program to print barcode using report.

Sample ABAP Program:

DATA: BAR_CODE1(16) VALUE `ABC01230123A01'

NEW-PAGE PRINT ON IMMEDIATELY `X'.

FORMAT COLOR OFF INTENSIFIED OFF.

• If the barcode is the first element on the page, the following Write

• statement is needed (otherwise you get a date in the first print

• control.

WRITE:/

• Turn on the barcode font, print the data, and switch back to the

• printer's default font. Be sure to use NO-GAP to avoid unwanted

• characters or CR/LF.

PRINT-CONTROL FUNCTION `BCPFX'

WRITE: BAR_CODE1 NO-GAP

PRINT-CONTROL FUNCTION `BCSFX'

• Add a Write statement to prevent insertion of CR/LF into the barcode.

WRITE:/

(or)

data: begin of precom9, "command for printer language PRESCRIBE

con1(59) value

'!R!SCF;SCCS;SCU;SCP;FONT62;UNITD;MRP0,-36;BARC21,N,''123456''',

con3(55) value

',40,40,2,7,7,7,4,9,9,9;MRP0,36;RPP;RPU;RPCS;RPF;EXIT,E;',

end of precom9.

...................

*replace 123456 of precom9+52(06) with the actual material number..

.....................

new-page print on. "barcode printer

Write: 'material number', precom9. "barcode for matnr

new-page print off.

hope this is helpful.

regards,

praba.

[Former Member]

HI,

Refer this link:

http://www.makebarcode.com/info/appnote/app_024.html#Introduction

Regards,

Gayathri