C:\WSPEFORM\RJSBARCODE.EXE
0-EAN | 15-Code 11 | 30-PostNet-Cp | 45-EAN-14 |
1-EAN-8 | 16-Codabar | 31-FIM A | 46-Planet 12 |
2-EAN+2 | 17-MSI | 32-FIM B | 47-Planet 14 |
3-EAN+5 | 18-Ex Code39 | 33-FIM C | 48-ISSN |
4-UPC-A | 19-UPCA+2 | 34-RM4SCC | 49-ISMN |
5-UPC-E | 20-UPCA+5 | 35-4-State | 50-SSCC |
6-ITF | 21-EAN8+2 | 36-Code-93 | 51-KoreanPA |
7-ITF-6 | 22-EAN8+5 | 37-Ex Code93 | 52-Poste Itanliane 39 |
8-Code-39 | 23-UPCE+2 | 38-ISBN_ | 53-Poste Itanliane 25 |
9-Code-128 | 24-UPCE+5 | 39-Matrix 2/5 | 54-ISBN+2 |
10-EAN-128 | 25-Telepen | 40-Plessey | 55-ISBN+5 |
11-2 of 5 | 26-Telepen A | 41-AustraliaP | 56-ISSN+2 |
12-I-2/5 | 27-Telepen N | 42-Swiss | 57-ISSN+5 |
13-3 of 9 | 28-PostNet-A | 43-DeutscheP | 58-JapanPost |
14-CODE-B | 29-PostNet-C | 44-SICI |
Use the function GenBarCode to generate a barcode bitmap image based on the selected information and pass the barcode file back to the selected file name.
Error: Returns an empty string.
'********************************************************************************* 'Sample Barcode VB Script Code (updated 8/23/05) '********************************************************************************* Dim bc As Object Dim bcfile As String Dim rtn As Long 'Create barcode object Set bc = CreateObject("RJSBarcode.CRJSBarcode") 'Make directory if not found rtn = bc.MakeDirectory("c:\barcodes") 'Use one example from the three below. Comment out the others. ' 1. 'Try to gen barcode with default size and no barcode text bcfile = bc.GenBarcode("123345">, 13, "c:\barcodes",0,0,0,0) ' - or - ' 2. 'Try to gen barcode with new size and barcode text at 5 points. bcfile = bc.GenBarcode("123345">, 13, "c:\barcodes",10,5,1,5) ' - or - ' 3. 'Try to gen barcode using the value in a field on the form. 'For this example, we will call the field "'''YOUR_FIELD'''". 'Replace this with a field that exists on your form. bcfile = bc.GenBarcode(ThisForm.Fields("YOUR_FIELD").value, 13, "c:\barcodes",10,5,1,5) 'If no file name is returned, an error occurred generating barcode. 'If a file name is returned, bcfile can be moved into a FormDocs field. 'NOTE: IF you use the field name below, you MUST have a field 'named "BARCODE_FIELD" that is set to a 'Picture' Format. If bcfile = "" Then MsgBox "No barcode" Else ThisForm.Fields("BARCODE_FIELD").activate ThisForm.Fields("BARCODE_FIELD").value = bcfile End If 'Delete work file rtn = bc.DeleteFile(bcfile) 'Release barcode object Set bc = Nothing
Still have questions? We can help. Submit a case to Technical Support.