Re: Output to printer

Re: Output to printer

[David C. Hoos, Sr.]

Peter Cathcart <pete@petros-world.freeserve.co.uk> wrote in message
news:7ll4j7$p88$1@news8.svr.pol.co.uk...
> Hi,
>
> I was wondering, is there a simple way to direct output to a printer. I'm
> using ObjectAda 7.1 (SE) on Windows '98 to write a console application and
> I'd like to be able to send output to a prnter connected to port LPT1.
>
I don't have Win98 installed on any of my machines, but this works
with GNAT and Windows NT:

with Ada.Text_IO;
procedure Printer is
   The_File : Ada.Text_IO.File_Type;
begin
   Ada.Text_IO.Create
     (File => The_File,
      Name => "LPT1",
      Mode => Ada.Text_IO.Out_File);
   Ada.Text_IO.Put_Line
     (File => The_File,
      Item => "The quick brown fox jumps over the lazy dog's back.");
   Ada.Text_IO.Put_Line
     (File => The_File,
      Item => "30");
   -- Eject the page
   Ada.Text_IO.Set_Line
     (File => The_File,
      To => 1);
end Printer;

Output to printer

[Peter Cathcart]

Hi,

I was wondering, is there a simple way to direct output to a printer. I'm
using ObjectAda 7.1 (SE) on Windows '98 to write a console application and
I'd like to be able to send output to a prnter connected to port LPT1.

Is there a file handle like 'Standard_Output' that prints to this port
instead of the screen? Or is it much more difficult than this.

Any help would be greatly appreciated.


Pete

Re: Output to printer

[Peter Cathcart]

David C. Hoos, Sr. wrote in message <8Y4#7tVx#GA.184@newstoo.hiwaay.net>...
>Peter Cathcart <pete@petros-world.freeserve.co.uk> wrote in message
>news:7ll4j7$p88$1@news8.svr.pol.co.uk...
>> I was wondering, is there a simple way to direct output to a printer. I'm
>> using ObjectAda 7.1 (SE) on Windows '98 to write a console application
and
>> I'd like to be able to send output to a prnter connected to port LPT1.
>>
>I don't have Win98 installed on any of my machines, but this works
>with GNAT and Windows NT:
>
[snipped code]

Thanks, that worked a treat.