>SET STEP ON >loFbc = NEWOBJECT("FoxBarcodeQR","progs\foxbarcodeqr.prg") >SCAN >**** Set the data for the bar-code field > lcBarCodeString = TRANSFORM(recv_lbl.recv_qty ) > lcBarCodeString = lcBarCodeString + ";Record "+TRANSFORM(RECNO()) > lcBarCodeString = lcBarCodeString + ";"+TRIM(crsselection.supname) > lcBarCodeString = lcBarCodeString + ";"+TRIM(recv_lbl.rev) > lcBarCodeString = lcBarCodeString + ";"+TRIM(recv_lbl.desc1+desc2) > lcBarCodeString = lcBarCodeString + ";"+TRIM(recv_lbl.date_code) > lcBarCodeString = lcBarCodeString + ";"+dtoc(date()) > lcBarCodeString = lcBarCodeString + ";"+TRIM(crsselection.uniq_key) > lcBarCodeString = lcBarCodeString + ";"+TRIM(recv_lbl.pno) > >**** Create the bar_code image > lcQRImage = loFbc.QRBarcodeImage(lcbarcodestring,,2,1) > >**** Copy to the "Picture" file > COPY FILE (lcQRImage) TO ("c:\tempdl\2d_bar_code.jpg") > > DELETE FILE (lcQRImage) > > Label Form [Reports\2d_POQUERY] NEXT 1 To PRINTER NOCONSOLE > > DELETE FILE ("c:\tempdl\2d_bar_code.jpg") >ENDSCAN>