clear print queue in windows

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,

I was able to figure out how to find the print jobs that belongs to a print server. Would someone explain me how to clear/purge the print queue once I printed a document?

#!/usr/bin/perl

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

my $printer = 'Xerox-Phaser-8560';
my @printers = Printers();

# to get printernames
foreach my $p (@printers) {

    if ($p->{PrinterName} eq $printer) {

        my @jobs = Jobs($p->{PrinterName}, 0, 1);

        # how I can clear the jobs here or is any other
        # effective method to clear the print queue for 
        # a print server?
    }

}
[download]

Comment on clear print queue in windows Download Code

Replies are listed 'Best First'.
Re: clear print queue in windows by vinoth.ree (Monsignor) on Feb 27, 2013 at 04:44 UTC
Check this node clear print queue.	[reply]
Re^2: clear print queue in windows by Anonymous Monk on Feb 27, 2013 at 11:24 UTC
Did you check that node? It doesn't answer the question, and the OP is trying to use Win32::Printer::Enum like that node suggests	[reply]
Re^3: clear print queue in windows by Anonymous Monk on Feb 27, 2013 at 15:30 UTC
Yes I checked that thread but that didn't answer the question of clearing print queues. I used Win32::Printer::Enum as it suggested in that thread. I'm new to use Perl in windows and any help would be greatly appreciated.	[reply]
Re^4: clear print queue in windows by Sinistral (Monsignor) on Feb 27, 2013 at 16:36 UTC

Back to Seekers of Perl Wisdom