Re: Manage print queues in Win32

(Since you said "share", I'm assuming you want a Windows solution.) Try Win32::Printer and Win32::Printer::Enum

 use Win32::Printer::Enum;
 use Win32::Printer::Enum qw( Jobs );

 # Could also loop over list of servers ...
 my @printer = Printers();

 foreach my $p (@printers)
 {
   @jobs = Jobs($p->{PrinterName}, 0, 1);
   print $p->{PrinterName}, " Queue:\n";
   foreach my $j (@jobs)
   {
     print $j->{Document}, $j->{Status}, "\n";
   }
 }
[download]

The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. -- Cyrus H. Gordon

Comment on Re: Manage print queues in Win32 Download Code

Replies are listed 'Best First'.
Re^2: Manage print queues in Win32 by BadHabit (Initiate) on Jul 12, 2005 at 16:13 UTC
Hurrah! Getting close now . . . Thanks for your help BH (exAnonymous Monk)	[reply]