Printing The 'next' Barcode

Legacy Poster

• 2011年10月24日 10:16

Hello!

We print barcode labels from one computer, the computer remembers that last number used and you just set it to print however many you want from that number.

Now we want to add a second printer, so more people can print barcodes.

How do I set it up so we don't duplicate barcode numbers? and each person knows what number to start from. I assume we need to relate it to a database?

EDIT: Also do we need to purchase another vesion of bartender? if so will print only version be enough?

Thanks
laura

0

• 

  Ian Cummings

  版主

  ★ BarTender Hero ★

  • 2011年10月24日 10:25
  At the moment, BarTender doesn't directly support a shared serial number value between multiple BarTender installations. However, you can use an event based VB script to read and write such a value to and from an external file or database record.
  
  Please see attached an example label format that does just this. Reading in a value on the "OnPrintStart" event, and writing back an updated value on the "OnPrintEnd" event.

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • 2011年10月24日 15:11
  Hi,
  
  Thanks for your reply.
  
  How exactly is the example working? I.e. how to I apply it to my label format?
  
  The label format is on the server so would be opened from he same location on each computer.

  0
• 

  Ian Cummings

  版主

  ★ BarTender Hero ★

  • 2011年10月28日 14:32
  The serial number uses an event controlled VB script as its datasource. The script runs to read in the value at the start of the print job and then writes back the updated value at the end of the print job. The example given is for a text file, but it can be adapted to source from a database instead.
  
  If you need help adapting this to your needs I suggest you send an email to your local Seagull technical support location (Europe in your case) giving specifics of what you need together with your label format and the data file that will contain the serial number value if possible.
  
  Contact details can be found at the below web page:
  
  http://www.seagullscientific.com/aspx/contact_us.aspx
  
  Below I include the VB script of the serial number text object for your convenience.
  
  'OnPrintStart
  
  On error resume next
  Dim fs, file, fso, makedatafile, f
  
  If IsNumeric(Value) = False Then
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.FileExists("c:\testfile.txt")
  if f = False then
  Set makedatafile = fs.CreateTextFile("c:\testfile.txt", False)
  Set file = fs.OpenTextFile("c:\testfile.txt")
  makedatafile.writeline "1"
  Else
  Set file = fs.OpenTextFile("c:\testfile.txt")
  Value = file.ReadLine
  End If
  Value = file.ReadLine
  End if
  Value = Value
  
  'OnPrintEnd
  
  If Value <> "" then
  Dim fs, a
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\testfile.txt", True)
  a.WriteLine(Value)
  a.Close
  
  End if

  0

请先登录再写评论。