File Coverage

blib/lib/Spreadsheet/PrintExcelSheet.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Spreadsheet::PrintExcelSheet;

use warnings;
use strict;
use Win32::OLE;

our $VERSION = '0.02';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &PrintIt );
}

sub PrintIt($@) {

	my ($dateiXls, @sheetNr) = @_;

	my $sheetNr = "@sheetNr";

	use Win32::OLE        qw(in with);
	use Win32::OLE::Const 'Microsoft Excel';

	$Win32::OLE::Warn = 3;

	my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
	            Win32::OLE->new('Excel.Application', 'Quit');

	my $book  = $excel->Workbooks->Open("$dateiXls");
	my $sheet = $book->Worksheets;

	if ($sheetNr eq 'all') {
		for my $worksheet (in ($sheet)) {
			$worksheet->PrintOut;
		} # for
	} # if
	else {
		for my $i (@sheetNr) {
			$book->Worksheets($i)->PrintOut;
		} # for
	} # else

	$excel->Quit();

} # PrintIt


1;
__END__