Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!zazen!psl.wisc.edu!news
From: dhoyman@fammed.wisc.edu (Dirk Herr-Hoyman)
Newsgroups: comp.sys.mac.apps
Subject: Re: laser test page
Message-ID: <1991May6.184755.1898@pslu1.psl.wisc.edu>
Date: 6 May 91 18:47:55 GMT
References: <410.280F8651@busker.fidonet.org> <42570@netnews.upenn.edu>
Sender: news@pslu1.psl.wisc.edu (USENET News System)
Organization: UW-Dept of Family Medicine
Lines: 35

In article <42570@netnews.upenn.edu> alex@eniac.seas.upenn.edu (Edmund Davis)
writes:
>Here's a new twist on an old thread:
>
>I want to print out extra start-up pages.  An office I do some work for
>uses the page count for accounting purposes.  Whenever they want it, they
>turn it off and back on again.  I think that this switching is hard
>on the machine. 
>Could someone post the postscript code that forces a laserwriter to
>print it's start-up page?
>
>thanks.
>
Here is a postscript program that will print the total number of pages printed
on an Apple LaserWriter.


statusdict begin
/Helvetica findfont 12 scalefont setfont
20 750 moveto
/str 80 string def
(Page count for printer ) show
str printername show
( is ) show
pagecount str cvs show
end
showpage

Now, to make this work you must print this as postscript.  I know of two ways
to do this.  1) Mark as Postscript style in MS-Word, 2) use SendPS (available
at the Sumex archives).

>alex
><no sig>
>