Sample VB Script for Generating Barcodes Dynamically from within FormDocs

Installing RJS Barcode ActiveX for Scripting

1. Download RJS Barcode ActiveX
2. Register RJS Barcode ActiveX:
   1. Go to Start > Run.
   2. Run the following command:

      C:\WSPEFORM\RJSBARCODE.EXE

Using RJS Barcode ActiveX for Scripting

Available Barcode Types

Function Description

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.

1. Barcode Text Value - String
2. Barcode Output Type - Integer
3. Barcode Output Path - String
4. Optional barcode width - Integer (Default = 30)
5. Optional barcode height - Integer (Default = 15)
6. Optional show barcode text caption - Integer (Default = 0 - No Show)
7. Optional barcode text caption font size - Integer (Default = 10)

Error: Returns an empty string.

Scripting Barcodes into the Form

'*********************************************************************************
'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