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("BarcodeWithPrintImage.pdf")

r = TK.PrintImage(barcode.AsString, 100, 500, 100, 100, True, 0)

TK.CloseOutputFile

Set barcode = Nothing

Set TK = Nothing