Date:         Sun, 10 Mar 1996 19:48:49 -0500
Reply-To:     AdamHndrx <adamhndrx@aol.com>
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         AdamHndrx <adamhndrx@AOL.COM>
Organization: America Online, Inc. (1-800-827-6364)
Subject:      Re: Re[2]: landscape

>Here's a Bourne Shell Command file I wrote to print Base SAS
>output in Landscape format using 14 chars./inch, 8 char. left
>margin and 13 line top margin on an HP Laserjet IV.  The PCL
>scripts can be incorporated in a DMS print form also.
 
>-- lprint (UNIX Command file) --
 
>cat $pcl/land.pcl $1 $pcl/reset.pcl | lp
 
>$pcl - UNIX environment variable containing the location
>       of the system wide Printer Control Language directory.
 
>$1   - First command line argument. Contains the name of
>       the text file to print.
 
>-- land.pcl --
>
>^[&l1O
>^[(s14H
>^[&a8L
>^[&a13E
 
>-- reset.pcl
 
>^[E
 
>Adam Hendricks
>ICOS Corporation
>Bothell, WA
 
Just to clarify this message, '^[' represents the <Escape> key or
ascii code 27.  The PCL files here can be generated using the
following SAS program:
 
filename land 'land.pcl';
filename reset 'reset.pcl';
data _null_;
  length cmd $20;
  file land noprint;
  esc = byte(27);
  cmd = compress(esc||'&l1O');
  put cmd;
  cmd = compress(esc||'(s14H');
  put cmd;
  cmd = compress(esc||'&a8L');
  put cmd;
  cmd = compress(esc||'&a13E');
  put cmd;
run;
 
data _null_;
  file reset noprint;
  esc = byte(27);
  cmd = compress(esc||'E');
  put cmd;
run;
 
I apologize for any confusion the earlier message may have caused.
 
Adam Hendricks
ICOS Corporation
Bothell, WA