home *** CD-ROM | disk | FTP | other *** search
- From: grover@big-joe.cs.unlv.edu (Kevin Grover)
- Newsgroups: comp.sources.wanted,alt.sources
- Subject: Re: Utility to print DoD headings at top and bottom of paper??
- Message-ID: <1991May3.190223.27082@unlv.edu>
- Date: 3 May 91 19:02:23 GMT
-
- In article <14684@hacgate.UUCP>, kelly@ipla01.hac.com (Keith Kelly) writes:
- ) Would anyone know if there is a commerical or PD utility or print filter which
- ) will allow DoD markings to be automatically printed at the top and bottom of
- ) printed output, including header pages? Thanks in advance.
- )
-
- This is a little PostScript program I wrote that redefines the showpage operator
- to put a header for the Information Science Research Institute on the
- first the first page:
-
- /oldshowpage /showpage load def
- /showpage
- {
- save
- initgraphics
- 0 setgray
- /Times-Roman findfont [25 0 0 45 0 0 ] makefont setfont
-
- 36 750 moveto (Information Science Research Institute) show
-
- /Helvetica findfont 10 scalefont setfont
-
- 425 780 moveto (University of Nevada, Las Vegas) show
- 425 771 moveto (School of Engineering) show
- 425 762 moveto (Information Science Research Institute) show
- 425 753 moveto (4505 Maryland Parkway) show
- 425 744 moveto (Las Vegas, Nevada 89154) show
-
- 37 740 moveto 576 740 lineto 2 setlinewidth stroke
- restore
- oldshowpage
- % - The next line undefines the new showpage so that following
- % pages are printed normally
- /showpage /oldshowpage load def
- } bind def
-
-
- Commenting the Last Line, should allow the header to be shown an all pages.
- You could also modify this program to draw pictures, or print a logo.
-
- --
- +-------------------------------------------------+----------------------+
- | Kevin Grover UNLV Computer Science | Home of the |
- | grover@cs.unlv.edu Las Vegas, Nevada | Running REBELS |
- +-------------------------------------------------+----------------------+
-