Win32::Printer::Direct - Perl extension for direct Win32 printing

  use Win32::Printer::Direct;

  Printfile("HP LaserJet 8150", "test.prn");

  Printfile($printer_name, $file_name);

   1	Success
  -1	Memory allocation error
  -2	Error opening the file
  -3	Error opening the printer
  -4	Error startint the print job
  -5	Error writing to printer
  -6	Error ending the print job
  -7	Error closing printer

#------------------------------------------------------------------------------#
# Win32::Printer::Direct                                                       #
# V 0.0.2 (2008-04-28)                                                         #
# Copyright (C) 2005 Edgars Binans                                             #
#------------------------------------------------------------------------------#

package Win32::Printer::Direct;

use 5.006;
use strict;
use warnings;

use Carp;

require Exporter;

use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD );

$VERSION = '0.0.2';

@ISA = qw( Exporter );

@EXPORT = qw( Printfile );

@EXPORT_OK = qw( );

use Win32::Printer;

#------------------------------------------------------------------------------#

sub AUTOLOAD {

  my $constname = $AUTOLOAD;
  $constname =~ s/.*:://;

  croak "Unknown Win32::Printer::Direct macro $constname.\n";

}

#------------------------------------------------------------------------------#

sub Printfile {

  if ($#_ != 1) { croak "ERROR: Wrong number of parameters!\n"; }

  my $printer = shift;
  my $filename = shift;

  return Win32::Printer::_Printfile($printer, $filename);

}

#------------------------------------------------------------------------------#

1;

__END__