Why don't you assign the output of the file to the printer?

Ex.

Program Print;
Uses Wincrt;
Var
  OutputFile : Text;

Procedure Print;
Begin
   Assign(OutputFile,"LPT1");
   Rewrite(OutputFile);
End;

Procedure CloseFile;  {This procedure very inportant!}
Begin                
  Writeln(OutputFile,#12);
  Close(OutputFile);
End;

Begin
   Print;

   Writeln("This is a test to see if this prints!");
   Writeln(OutputFile,"This is a test to see if this prints!");

   CloseFile;
End.

The closing procedure is very important, because if you do not close the
file after, you may lock up your printer.  The #12 in the source code is
ascii code to form feed the paper.

Regards,