strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
Set TK = CreateObject("APToolkit.Object")
Set barcode = CreateObject("APToolkit.Barcode")
barcode.Symbology = 41
barcode.BorderStyle = 0
barcode.SymbolMarginBottom = 0
barcode.SymbolMarginTop = 0
barcode.SymbolMarginRight = 0
barcode.SymbolMarginLeft = 0
barcode.Value = "this is some test data...blah blah blah"
r = TK.OpenOutputFile("BarcodeInField.pdf")
r = TK.OpenInputFile("field.pdf")
TK.SetFormFieldData "testField", barcode.AsString, -996
r = TK.CopyForm(0, 0)
TK.CloseOutputFile
Set barcode = Nothing
Set TK = Nothing
|