VB Scripting for a 2D barcode

Troy Harkness

• October 20, 2022 22:01
• Edited

I am using Bartender version 10.0 SR4

I am VERY new to VB scripting. I am using code from a previous label and changed the DB.Field name to match my need and the label will not print. I have another VD script on the same label that is not as complicated for a code 39 barcode and that is working. Below is my code string and the line below that is the original code string.

Value = "[)> " + "06 " + "1JUN6157451680" + Field("JDJRZLT1_DB.TrackingNo")  + " PN" + Field("JDJRZLT1_DB.PARTNO") + " Q" + Field("JDJRZLT1_DB.LPPackQuantity") + " BPKG" + " V" + Field("JDJRZLT1_DB.SupplierCode") + " 4LUS " + " K" + Field("JDJRZLT1_DB.CustPONo") + " 2S" + Field("JDJRZLT1_DB.RevLevl") + " 15K 2L 22L"

Original Code string

Value = "[)> " + "06 " + "1JUN6157451680" + Field("SO_JD_PLT_001.TrackingNo")  + " PN" + Field("SO_JD_PLT_001.PARTNO") + " Q" + Field("SO_JD_PLT_001.Quantity") + " BPKG" + " V69095" + " 4LUS " + " K" + Field("SO_JD_PLT_001.PurchaseOrder") + " 2S" + Field("SO_JD_PLT_001.RevLevl") + " 15K 2L 22L"

0

• 

  Peter Thane

  ★ BarTender Hero ★

  • October 21, 2022 07:54

  All it looks like you are doing is concatenating a bunch of fields together to make a composite barcode symbol. I wouldn't use VB for this as there is a simpler way where you add the fields directly to the barcode itself such as the part of one I have started below.  

   

  

  0
• 

  Troy Harkness

  ★ BarTender Hero ★

  • October 21, 2022 12:00

  Peter,

  Thank you for the help. Yes I am concatenating data. I did not even think about re-thinking the label. i appreciate the help.

  Troy

  0

Please sign in to leave a comment.