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") ENDSCANThe Label Form has a Picture/Active X Bound Control which is set to Print Picture From a file. The filename property is set to "c:\tempdl\2d_bar_code.jpg"