Leser: 1
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# Excel öffnen
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $excel = Win32::OLE->new('Excel.Application') || die "Kann Excel nicht starten";
$excel->{Visible} = 1;
# Mappe öffnen
my $book = $excel->Workbooks->Open("datei.xls");
$excel->Application->{ActivePrinter} = 'hp deskjet 5550 series auf Ne00:';
$book->Sheets("Tabelle1")->PrintOut;
# HTML-Ausgabe
print ("Content-type: text/html\n\n");
print qq~
<html>
<head>
<title>Seite wird gedruckt...</title>
</head>
<body>
Seite wird gedruckt...
</body>
</html>~;
# Excel beenden
$book->Save();
$book->Close();
1
2
3
4
5
6
7
8
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] Premature end of script headers: test.cgi, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] OLE exception from "Microsoft Excel":\r, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] \r, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] Die ActivePrinter-Eigenschaft des Application-Objektes kann nicht festgelegt\r, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] werden.\r, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] \r, referer: http://localhost/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] Win32::OLE(0.1702) error 0x80020009: "Ausnahmefehler aufgetreten"\r, referer: http://localhost/webs/dvdstar/skripte_entwicklung/lokaldruck/
[Mon Dec 19 21:13:33 2005] [error] [client 127.0.0.1] in PROPERTYPUT "ActivePrinter" at D:/httpd/HtDocs/test.cgi line 15\r, referer: http://localhost/
7 Einträge, 1 Seite |