>lcAlias=ALIAS() >IF NOT USED('filelocn') > USE filelocn IN 0 SHARED >ENDIF >SELE filelocn >LOCATE FOR parm='BCDEPRN' >cSourceFileName=THIS.lblFile >IF FOUND() > cPrinterName=UPPER(ALLT(DIRECT)) >ELSE > =MESSAGEBOX("Parameter not Configured (BCDEPRN)"+CHR(13)+"Packing List Will Not Print",64,"CANNOT PROCEED") > RETURN >ENDIF >SET CLASSLIB TO libs\rawprint ADDI >oPrn=CREATEOBJECT("PrintDev") >oPrn.cPrinterName = cPrinterName >oPrn.cfilename = cSourceFileName >IF oPrn.oOpen() > IF !oPrn.oPrintFile() > MESSAGEBOX("Error sending to printer") > ENDIF > oPrn.oClose() >ELSE > MESSAGEBOX("OpenPrinter() Error: "+STR(oPrn.nOpenError)) >ENDIF > >RELEASE oPrn >IF NOT EMPTY(lcAlias) > SELE (lcAlias) >ENDIF >>