laser-lovers@uw-beaver (06/08/85)
From: Brian Reid <reid@Cascade>
People have asked about margins on PostScript printers.
Here is a file to set (permanently, in EEROM) the margins on
an Apple LaserWriter. [I have also posted this to Unix net.sources]
%!
% This file will set the X and Y margins on an Apple LaserWriter.
% Brian Reid, Stanford
%
0000000 % edit this line to equal your server exit password
/Courier findfont 10 scalefont setfont
100 720 moveto
serverdict begin
statusdict begin
dup checkpassword
{
(Setting new margins. Old margins were: ) show margins exch
10 string cvs show ( ) show
10 string cvs show ( ) show
showpage exitserver
} {(Sorry, wrong password!) show} ifelse
statusdict begin
1 32 setmargins % *** Edit this line. First number is top margin,
% *** second number is left margin. Both are in pixels.
% *** left margin must be a multiple of 16.
end