set prin to xxx.txt
set prin on
set cons off
??chr(27)+chr(83)+chr(1)
set prin to
set cons off

DECLARE INTEGER CopyFile IN kernel32;
	STRING lpSrcFile, STRING lpDstFile, INTEGER bFail
CopyFile("xxx.txt","prn", 0)