ada printing

ada printing

[thomas]

any hints\ideas on how to print via LPT1 using ada, or where to go to
get such hints ?

i read an article here with a guy trying to print via text_io.put, with
a file name of prn.
but i got a status_error.

thankyou.

Re: ada printing

[tmoran]

>i read an article here with a guy trying to print via text_io.put, with
>a file name of prn. but i got a status_error.
  Did you get the status_error perhaps when you tried to Create or Open
an already-open "prn" file?  Or somewhere else?

Re: ada printing

[rasser]

This should work from for Win98, DOSbox or not. Use "LPT1" in "Open" 
instead of "PRN" if you like result is the same with only one printer 
port.

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Characters.Latin_1; use Ada.Characters;

procedure Test_Prn is
    Outf : File_Type;
begin
    Open (Outf, Out_File, "PRN");
    Put (Outf, "This is printed on PRN....");
    Put (Outf, Latin_1.LF & Latin_1.CR);
    Close (Outf);
end Test_Prn;