IF !printit(hdir+'receipt.txt') =OKAY("An error ocurred printing the receipt. Please reprint the receipt.") ENDIF PROCEDURE printit PARAMETERS lcfile IF TYPE('lcfile')<>"C" .or. EMPTY(lcfile) RETURN .F. ENDIF PRIVATE llreturn llreturn = .T. PRIVATE rcptfile rcptfile = lcfile PRIVATE rcptprinter *--SET('PRINTER',3) is a network printer: \\MYSERVER\hplaserj rcptprinter = SET('PRINTER',3) PRIVATE lcsafety lcsafety = SET('SAFETY') SET SAFETY OFF DECLARE INTEGER CopyFile IN KERNEL32.DLL ; STRING @SourceFileName, ; STRING @DestFileName, ; INTEGER bFailIfExists IF CopyFile(@rcptfile,@rcptprinter,0) # 0 llreturn = .T. ELSE llreturn = .F. ENDIF IF TYPE('lcsafety')="C" .and. INLIST(lcsafety,'OFF','ON') SET SAFETY &lcsafety ENDIF CLEAR DLLS 'CopyFile' RETURN llreturn>>Hi Metin,
>>DECLARE INTEGER CopyFile IN kernel32; >> STRING lpSrcFile, STRING lpDstFile, INTEGER bFail >> >>= CopyFile(cFilename, 'LPT1:', 0) >>>>where cFilename is a text file you want to print.