From: mroth@afit.af.mil (Mark A. Roth)
Newsgroups: comp.text.tex
Subject: business card style
Date: Tue, 22 Dec 92 12:28:43 EST
Organization: Info-Tex<==>Comp.Text.Tex Gateway
X-Gateway-Source-Info: Mailing List

Here is a business card style file I put together the other day.
I got tired of my business cards being out of date the day after 500 of
them were delivered.  Now I can simply print as few or as many as I need.
Most laser printers take card weight stock using manual feed.  Enjoy!

Mark Roth
---------cut here-------------
%buscard.sty
%business card style by Mark A. Roth, 22 Dec 92.  Email: mroth@afit.af.mil
%see end of file for example of use.
%You will have to change the lines that produce our School's seal and header
%as indicated.
\documentstyle{article}
%change this next line for your school's seal or leave out
\documentstyle{afitseal} %loads information to produce our the AFIT seal
\nofiles
\makeatletter
%I need a 7pt sans serif font, which the standard LaTeX NFSS set doesn't have
\new@fontshape{cmss}{m}{n}{%
      <5>cmss8 at5pt%
      <6>cmss8 at6pt%
      <7>cmss8 at7pt%
      <8>cmss8%
      <9>cmss9%
      <10>cmss10%
      <11>cmss10 at10.95pt%
      <12>cmss12%
      <14>cmss12 at14.4pt%
      <17>cmss17%
      <20>cmss17 at20.74pt%
      <25>cmss17 at24.88pt%
      }{}
\pagestyle{empty}
\oddsidemargin -.25in \evensidemargin -.25in \marginparsep 0pt
\textwidth 7.1in \textheight 11in \topmargin -54pt
\newdimen\cardwidth \newdimen\cardheight \newdimen\cardcontentwidth
\cardwidth 3.5in \cardheight 108.5pt \cardcontentwidth 225pt
\headheight 0pt \headsep 0pt \parindent 0pt \parskip 0pt \footheight 0pt
\def\bc@department{}
\def\department#1{\def\bc@department{#1}}
\def\bc@name{}
\def\name#1{\def\bc@name{#1\\}}
\def\bc@rank{}
\def\rank#1{\def\bc@rank{#1\\}}
\def\bc@title{}
\def\title#1{\def\bc@title{#1\\}}
\def\bc@right{}
\def\right#1{\def\bc@right{#1}}
\def\bc@left{}
\def\left#1{\def\bc@left{#1}}
\def\bc@email{}
\def\email#1{\def\bc@email{#1}}
\def\bc@workphone{}
\def\workphone#1{\def\bc@workphone{#1}}
\def\bc@fax{}
\def\fax#1{\def\bc@fax{#1}}
\def\bc@address{}
\def\address#1{\def\bc@address{#1}}
\def\bc@e{}
\fboxsep 17pt
\def\bc@makecard{\ \hspace*{-10pt}\vspace*{-.5pt}
\ifx\bc@right\bc@e\def\bc@right{\bc@email\hspace*{2pt}\\\bc@workphone\\FAX: \bc@fax}\fi
\ifx\bc@left\bc@e\def\bc@left{\bc@address}\fi
\framebox[\cardwidth]{\hfill
\begin{minipage}{\cardcontentwidth}
\vbox to \cardheight{
%
%change the next 9 lines for your desired top of card info
%for a simple card just center your organization and department name
\hspace*{39pt} \begin{tabular}[t]{c}
{\footnotesize\sf AIR FORCE INSTITUTE OF TECHNOLOGY}\\
{\scriptsize\sf \bc@department}
\end{tabular}

\vspace*{-26pt}
\afitseal[.71in] %print the AFIT seal scaled to fit specified width

\vspace*{-10pt}
\begin{center}
{\large\rm\bc@name}
{\scriptsize\sf\bc@rank}
{\scriptsize\sf\bc@title}
\end{center}

\vfill

\scriptsize\sf
\begin{tabular}[b]{l}
\bc@left
\end{tabular}
\hfill
\begin{tabular}[b]{r}
\bc@right
\end{tabular}
} %end vbox to cardheight
\end{minipage} %end of minipage
\hfill} %end of framebox
} %end \bc@makecard

\newcounter{card} \newcounter{printedcard} \newcounter{pagecard}
\def\makecard#1{\ \hspace*{-6.7pt}%
\setcounter{card}{#1}\setcounter{printedcard}{0}\setcounter{pagecard}{0}%
\@whilenum\c@card>\c@printedcard\do%
  {\bc@makecard\bc@makecard\newline%
   \addtocounter{printedcard}{2}%
   \addtocounter{pagecard}{1}%
   \ifnum\c@pagecard=5%
     \ifnum\c@card>\c@printedcard%
       \newpage\setcounter{pagecard}{0}\ \hspace*{-6.7pt}%
     \fi%
   \fi%
  }%end while
}%end makecard
\makeatother
\endinput
%sample file to create business cards for AFIT; change this file to
%hold your information and feed it to your favorite LaTeX processor.
%send comments/problems to Mark Roth, mroth@afit.af.mil
%
%Fill in the following with your info, \address gets printed in the
%lower left corner, \email, \workphone and \fax in the lower right corner.
%If you want to do your own thing in the corners use commands \left and
%\right, separating lines with \\
%
\documentstyle{buscard}
%
%the department is printed under the school name at the top of the card
\department{Dept. of Electrical and Computer Engineering}
%
%the next three entries are centered in the middle of the card
\name{JOHN J. DOE, Ph.D.}  %this format is up to you!
\rank{MAJOR, USAF}         %all fields are optional
\title{PROFESSOR OF ELECTRICAL ENGINEERING}
%
%lower left corner
\address{First Line\\ Second Line\\ Third Line}
%
%lower right corner
\email{doe@somewhere}
\workphone{(555) 555-5555, DSN 555-5555}
\fax{(555) 555-5555, DSN 555-5555} %word FAX is automatically supplied
%
%this is the same info using \right
%\right{doe@somewhere\\
%       (555) 555-5555, DSN 555-5555\\
%       FAX: (555) 555-5555, DSN 555-5555}  %you have to supply word FAX
%
%if you don't want frames around the cards uncomment the following line
%\fboxrule 0pt
\begin{document}
              %this command prints the cards, 10 per page, in even numbers
\makecard{2}  %change the number here to the number of cards you want
              %don't try more than 10 to start, just in case don't like
	      %your cards on the first attempt
\end{document}
Newsgroups: comp.text.tex