Hi Alex,

I just implemented this myself. My code below works fine using a network printer:

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,
>>
>>Try this code:
>>

>>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.
>>
>>No DOS window -- guaranteed :)
>>
>>Network printer names like \\MYSERVER\EPSON can be used as well as LPT1:
>
>Anatoliy,
>
>I keep coming back to you for these answers... I find that CopyFile(cFilename, 'LPT1:', 0) works, but CopyFile(cFilename, '\\MYSERVER\EPSON', 0) does not. Am I doing something wrong?
>
>Thank you very much,
>
>Alex