Paul Papour wrote a perl based print monitor, NTPStat.pl.

If you use activestate's perl, all modules required, except Win32::Service, are already installed.

Basic rundown:
Connect to the print server registry to find where the spooler lives.
Connect to the spooler directory.
Each subdirectory is the printer name.
Print information files are extracted and displayed.
It also provides the ability to delete print jobs and control the Spooler Service.