Printing barcodes from an ABAP report program without SAPscript

Printing barcodes from a SAP script is quite easy, but how can we print it with a WRITE statement? The following ABAP code is a tested solution, which prints barcodes (type ARTNR -code 128) on Kyocera (F800-FSxxxx series) laserjet printers. For other types of printers find the printer control and driver info from the user manual and define it your report.

Note: This code has not been tested above 4.0B versions.

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.