topic Re: Printing Barcode with WRITE Command in Application Development and Automation Discussions

Printing Barcode with WRITE Command

Former Member — Tue, 31 Aug 2010 06:30:47 GMT

Dear all

I have an old program where we print forms on a matrix printer.

we use simply WRITE: /48 kna1-name1.

Now I have to add a barcode. Is this possible without using Sapscript or Smartforms?

Herbert

Re: Printing Barcode with WRITE Command

Former Member — Tue, 31 Aug 2010 06:40:15 GMT

Hi Herbert,

Printing Barcodes with ABAP or SAPSCRIPT

hope u will get some idea.

We are now ready to print barcodes using an ABAP report program or a SAPSCRIPT form. In these examples we are using Code 39 barcodes which require very little formatting (all we have to do is add asterisks before and after the data).

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:/

Regards

Amarnath S

Re: Printing Barcode with WRITE Command

Former Member — Tue, 31 Aug 2010 07:30:59 GMT

Hi,

please go through this ..

Printing Barcodes with ABAP

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:/

Regards,

Re: Printing Barcode with WRITE Command

Former Member — Tue, 31 Aug 2010 11:29:07 GMT

I tried this, but it prints 'ABC01230123A01' and not a barcode

Herbert

Edited by: Herbert Schlup on Aug 31, 2010 1:29 PM

Re: Printing Barcode with WRITE Command

Former Member — Mon, 11 Jul 2011 13:58:13 GMT

HI,

i'm facing the same problem, do you know how to resolve this issue, i did what they suggest but it doesnt work.

thank you for you help,