blob: 95770970b16a17bcf788b126dd8d5354a4ef53a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
% This can be used to print letters on AI Lab letterhead on those printers
% which have them in the third tray. It will also put the extension number
% in the appropriate place at the bottom of the page; due to feeding
% variability in the printer, this may sometimes be off. Second and
% subsequent pages are printed on standard paper; copy to blank bonded
% paper if you so desire.
% Extension numbers are defined with other personal parameters by the
% declaration
%
% \extension{xxxx}
%
% Send bug messages to Yishai@OZ.
\makeatletter
\let\@origshipout=\shipout
\def\@testvbox{\vbox}
\def\@aishipout#1#2{%
\def\@foo{#1}
\ifx\@foo\@testvbox
\@origshipout\vbox to 9.19in{\vskip\@origvoffset
\moveright\@orighoffset#1{#2}%
\vss
\hbox{\hskip 4.9in\ninrm\@extension}}
\else\errmessage{Bug in \string\ailetterhead!}
\@origshipout#1#2\fi
\special{tray 1}%
\voffset=\@origvoffset
\hoffset=\@orighoffset
\global\let\shipout=\@origshipout}
\def\ailetterhead{%
\special{tray 3}
\xdef\@origvoffset{\the\voffset}
\xdef\@orighoffset{\the\hoffset}
\hoffset=0pt
\voffset=0pt
\let\shipout=\@aishipout}
\def\@extension{}
\def\extension#1{\def\@extension{#1}}
\makeatother
|