Skip to Content
0
Jul 24, 2017 at 07:18 AM

Not able to Change font size for barcode

78 Views

Hi,

We have to modify an existing program and accomodate more characters in a barcode label which is printed directly through a zebra printer without a smartform or sapscript.Complete barcode is not getting printed on the label and therefore we want to reduce the size of barcode but not able identify on how to do so.

below is the code which we are not able to understand.

GV_PCODE TYPE STRING VALUE 'B10,10,0,E30,3,6,188,B,"',
GV_PCODE1 TYPE CHAR2 VALUE '"',
GV_PCODE2 TYPE STRING VALUE 'A50,115,0,4,1,1,N,"',
** gv_pcode2 TYPE string VALUE 'A38,115,0,4,1,1,N,"',

** BEGIN-REPLACE-BNT-20.04.2017
** TO OBTAIN GS1-128 BAR CODE
** gv_pcode3 TYPE string VALUE 'B30,10,0,1,2,6,101,N,"'.
GV_PCODE3 TYPE STRING VALUE 'B1,8,0,1E,2,6,103,N,"'.

CONCATENATE GV_PCODE2 '(01)0' WA_FINAL-EXTWG '(17)' WA_FINAL-VFDAT+0(6) '(10)' WA_FINAL-CHARG '(21)' WA_FINAL-SERNR
GV_PCODE1 INTO LV_BCODE.

CONCATENATE GV_PCODE3 '010' WA_FINAL-EXTWG '17' WA_FINAL-VFDAT+0(6) '10' WA_FINAL-CHARG '21' WA_FINAL-SERNR
GV_PCODE1 INTO LV_BCODE1.

WRITE:/ 'rN'.
WRITE:/ 'S5'.
WRITE:/ 'D10'.
WRITE:/ 'ZT'.
WRITE:/ 'JF'.
WRITE:/ 'O'.
WRITE:/ 'R120,0'.
** WRITE:/ 'R136,0'.
WRITE:/ 'f100'.
WRITE:/ 'N'.
** END-REPLACE-BNT-20.04.2017
WRITE:/ LV_BCODE.
WRITE:/ LV_BCODE1.
WRITE:/ 'P1'.
NEW-PAGE PRINT OFF.

ENDFORM. " GENERATE_LABEL_E129

Kindly guide on where to make the changes.