Vb Script To Change Barcode Object

Legacy Poster

• November 21, 2011 21:25

I would like to write a VB script that changes the Bar Code Symbology based on the number of characters in the datasource.

such as:

UPCEAN_len = len(UPCEAN)

If UPCEAN_len = 12 Then
symbology = UPC-A
elseIf UPCEAN_len = 13 Then
symbology = EAN/JAN-13

What exactly would I need to do to change the symbology? Any tips? I am using BarTender Enterprise version 9.01.

Thanks!

0

• 

  Shotaro Ito

  ★ BarTender Hero ★

  • November 22, 2011 01:14
  Hi dblaron,
  BarTender doesn't have an option to change bar code symbology type programmably. Besides, when datasource is empty (""), a bar code won't be printed. So, you can conditionally hide a bar code by create two barcodes on the same place, and give empty string to datasource when condition is met.
  You can use OnProcessData script in More Options > VBScript, to modify datasource.
  
  such as,
  for UPC-A
  [code]
  If Len(Value)<>12 Then Value =""
  [/code]
  
  for EAN-13
  [code]
  If Len(Value)<>13 Then Value =""
  [/code]
  
  [attachment=55:UPCorEAN.png]
  [attachment=56:UPCorEAN.zip]
  
  *Note: Input bar code data with correct checkdigit. From BarTender 9.3, If check digit is incorrect, barcode won't be printed.
  if you don't give last digit - give 11 digits to UPC-A or give 12 digits to EAN-13, BarTender automatically append a check digit.
  
  Hope that helps!

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • November 22, 2011 22:28
  Thank you for your reply, this solution works perfectly.
  
  Also, is there a way I can link a text field to this change as well?
  
  I have a text field above the barcode stating 'UPC-A' and I want it to be shown only above the UPC-A barcode. Similarly, I have a text field stating EAN-13, and I want that to show only above the EAN-13 barcode.
  
  Is there a VB script that can do this?
  
  Thank you again for your assistance!

  0
• 

  Shotaro Ito

  ★ BarTender Hero ★

  • November 25, 2011 00:35
  Try this..
  Create a text using the same data source as the barcode.
  On OnProcessData script in More Options > VBScript,
  [code]
  If Len(Value) = 13 Then Value = "EAN-13"
  If Len(Value) = 12 Then Value = "UPC-A"
  [/code]

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • November 23, 2014 00:54

  Only slightly related to this topic, but since I was using this as an example to do what I wanted... I figured my notes might go here...

   

  I am merely trying to print a UPC Barcode on a Carton Label only if there is only 1 Stock Code in the Carton.

  So I tried the layered approach discussed here...

   

  My DataSource either has the value of "MIXED" if there are more than 1 items in the Carton, or the UPC code of the stock code if there is only one...

   

  I set up a Text Object to print the "MIXED" when necessary... But I have to print a single blank character to print when I need it blank... Else I get a barcode of the string <empty> printing out...

   

  Same with the UPC Code... If the DataSource == "MIXED" and I set it to "", then I get a UPC Code of "<empty>" printing... Instead of nothing... My VBScript for the BarCode Object is ----If value = "MIXED" Then value = ""----

   

  This is version 9.10 of Bartender...

  0
• 

  Shotaro Ito

  ★ BarTender Hero ★

  • November 25, 2014 01:08

  Hi Silvia, would the "<empty>" text actually printed? that might be shown only on design view.

  0

Please sign in to leave a comment.