Path: utzoo!attcan!uunet!nih-csl!lhc!mimsy!dftsrv!ukma!wuarchive!usc!apple!bionet!agate!linus!philabs!sxm
From: sxm@bebop.Philips.Com (Sandeep Mehta)
Newsgroups: comp.text.tex
Subject: Re: Envelopes in TeX
Message-ID: <SXM.90Oct25094040@bebop.Philips.Com>
Date: 25 Oct 90 13:40:40 GMT
References: <1990Oct23.083348.6215@unicorn.wwu.edu>
	<1990Oct23.214405.15075@nntp-server.caltech.edu>
Sender: news@philabs.Philips.Com
Distribution: comp
Organization: Autonomous Systems, Philips Labs, Briarcliff Manor, NY
Lines: 91
In-reply-to: marcel@cs.caltech.edu's message of 23 Oct 90 21:44:05 GMT


> marcel@cs.caltech.edu (Marcel van der Goot) writes:

   > Does anyone know how to print addresses on envelopes using TeX?

   The solution was developed long ago, before TeX even existed: You
   print on peel-off labels instead of on the envelopes. You can buy
   them in many different forms, with or without tractor feed holes, etc.

yup, and it's a whole lot easier to keep and use peel off labels.
for addresses you need to print en-mass here is a q`n'd LaTeX file to
do it.

It prints a grid and the addresses inside the boxes. The sizes work w/
the label sheets I have. You'll have to fiddle around to make it work
with your labels. There are two files. Save the first as picture.1.sty
and latter as your labels files. it's pretty simple.

hope this is some use...

sandeep

-----------8<-------------8<------------------8<----------
%%%%%%%%% THE STYLE: SAVE IN FILE picture.1.sty  %%%%%%%%%%%%
%%  setup for picture mode

\pagestyle{empty}

\textheight        10.5in
\textwidth          8.0in
\columnwidth   \textwidth 

\headheight         0.0in
\headsep            0.0in
\footheight         0.0in
\footskip           0.0in

\topmargin         -0.95in
\oddsidemargin     -0.8in
\evensidemargin    -0.8in

\setlength{\unitlength}{0.01in}

\newcommand{\border}
{
   \begin{picture}(850,1100)

   \multiput(0,0)(0,1100){2}{\line(1,0){700}}
   \multiput(0,0)(850,0){2}{\line(0,1){900}}

   \end{picture}
}

\newcommand{\grid}
{
   \begin{picture}(850,1100)

   \multiput(0,0)(100,0){9}{\line(0,1){1100}}     % vert lines
   \multiput(0,0)(0,100){12}{\line(1,0){850}}     % horz lines

   \end{picture}
}

%%%%%%%%%%%%%%%% THE EXAMPLE: SAVE IN SEPARATE FILE %%%%%%%%%%%%%%%
% prints 66 address labels (2 per label)
% for use with 8 1/2 x 11 label paper (3x11 labels/sheet)

\documentstyle[picture.1]{letter}

\begin{document}
\newcommand{\retaddr}
{
   \begin{picture}(180,50)
   \put(0,0){\framebox(180,50){}}
   \put(10,38){\bf Sandeep Mehta}
   \put(10,22){345 Scarborough Road}
   \put(10,8){Briarcliff Manor, NY 10510}
   \end{picture}
}

\begin{picture}(850,1100)
\multiput(-3,5)(0,50){22}
{
   \multiput(0,0)(283,0){3}{\retaddr}
}
\end{picture}

\end{document}

--
sxm@philabs.Philips.Com