Re: ***********HOW TO PRINT*************** - Article 158 - go-pugleaf

Article View: comp.lang.pascal.misc

Article #158

Back to comp.lang.pascal.misc Previous Next

Re: *HOW TO PRINT*****

#158

From: Scott Earnest
Date: Mon, 30 Sep 1996 00:00

35 lines
1725 bytes

Richard Elbert Davis wrote:
> 
> Hey,
>  does anyone know howto print. I cant find the code to do it. I wanted
> it tp print some text files for mw.

program quickprint;

{only prints to LPT1}

uses
  printer;

var
  f : text;
  s : string;

begin
  assign (f,'myfile.txt'); {substitute with your file name!}
  reset (f);
  while not eof(f) do
    begin
      readln (f,s);
      writeln (lst,s);
    end;
  close (f);
end.

> -Jarrod

-- 
Scott Earnest                      | _,-""-_,-""-_,-""-_,-""-_,-""-_,-" |
setech@ix.netcom.com (primary)     | We now return you to our regularly |
sinykal@cyberspace.org (alternate) | scheduled chaos and mayhem. . . .  |

Technical Details

Message-ID: <3250B427.7E0@ix.netcom.com>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References:

<1996Sep27.160013.6675@arl.mil> <52jbao$c98@dfw-ixnews4.ix.netcom.com> <cecodere.100.324EA74C@andrew.sca.usherb.ca> <52n01v$ph3@dfw-ixnews7.ix.netcom.com> <52plub$1p7@dfw-ixnews3.ix.netcom.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10261c,38608a28b5863775
X-Google-Attributes: gid10261c,public
X-Google-Thread: 11185f,8746d3f6e7cf3444
X-Google-Attributes: gid11185f,public
X-Google-Thread: 102601,8746d3f6e7cf3444
X-Google-Attributes: gid102601,public
X-Google-Thread: 111659,8746d3f6e7cf3444
X-Google-Attributes: gid111659,public
From: Scott Earnest <setech@ix.netcom.com>
Subject: Re: ***********HOW TO PRINT***************
Date: 1996/09/30
Message-ID: <3250B427.7E0@ix.netcom.com>
X-Deja-AN: 186371710
references: <1996Sep27.160013.6675@arl.mil> <52jbao$c98@dfw-ixnews4.ix.netcom.com> <cecodere.100.324EA74C@andrew.sca.usherb.ca> <52n01v$ph3@dfw-ixnews7.ix.netcom.com> <52plub$1p7@dfw-ixnews3.ix.netcom.com>
content-type: text/plain; charset=us-ascii
organization: Who me?  Surely you jest.
x-netcom-date: Mon Sep 30 10:02:27 PM CDT 1996
mime-version: 1.0
newsgroups: comp.lang.pascal.misc,comp.lang.pascal.borland,ctdl.lang.pascal,osu.pascal
x-mailer: Mozilla 2.01 (Win16; I)

Reply to Parent Message