Hi Reza,

I use these codes for writing text on dot-matrix printers. Your printer won't page eject until you wanted:

    xport="lpt1"
    xfile="myprint.txt"
  set prin to (xfile)
  set print on
  set cons off
   ?"mzkfdsfkkdlflsd"
   ?"mckzmkxzmckxzmkcxz"
   ?"mkfgksgkfgkfdkgkdj"

  set prin to
  set prin off
  set cons on
     

  STRTOFILE(CPCONVERT(CPCURRENT(1) ,CPCURRENT(2),FILETOSTR(m.xfile)),m.xfile)DECLARE INTEGER CopyFile IN kernel32;
	STRING lpSrcFile, STRING lpDstFile, INTEGER bFail
CopyFile(m.xfile,m.xport, 0)