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) ENDIFBoy did it ever work!