#!/usr/bin/perl

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

sub PrintExcelSheet($);

PrintExcelSheet("C:\\Lokale_Daten\\Mappe1.xls");

sub PrintExcelSheet($) {

   my $dateiXls = shift;

   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");
   $book->Worksheets(2)->PrintOut;

   $excel->Quit();

} # PrintExcelSheet