[Overview][Procedures and functions][Variables][Index] Reference for unit 'printer' (#rtl)

AssignLst

Assign text file to printing device

Declaration

Source position: printer.pp line 40

procedure AssignLst(

  var F: text;

  ToFile: string

);

Description

AssignLst assigns to F a printing device - UNIX only. ToFile is a string with the following form:

See also

lst

  

Default printing file.

Example

program testprn;

uses printer;

var i : integer;
    f : text;

begin
  writeln ('Test of printer unit');
  writeln ('Writing to lst...');
  for i:=1 to 80 do writeln (lst,'This is line ',i,'.'#13);
  close (lst);
  writeln ('Done.');
  {$ifdef Unix}
  writeln ('Writing to pipe...');
  assignlst (f,'|/usr/bin/lpr -m');
  rewrite (f);
  for i:=1 to 80 do writeln (f,'This is line ',i,'.'#13);
  close (f);
  writeln ('Done.')
  {$endif}
end.


Documentation generated on: Sep 28 2017