Drucken unter Windows (Komandozeile, Perl/TK, Win32::GUI)

[Steffen]

Hallo,

hmmm also ich bin jetzt schon soweit (was ja eigentlich auch FAST *g* logisch war) das ich einfach noch zusätzlich den Pfad zu Gohstscript angegeben habe...

Und jetzt kommt auch der Windows Druckbildschirm und GS wird gestartet jedoch schmeisst mir das einen Error raus
"Error: /undefinedfilename in ($spoolfile)"

kamm mir hier evtl. noch wer helfen?

DANKE ;-)

use strict;
use Printer;

my @data = ('hello world', "\n", 'vasa', "\n", 'Yessssssssss');

my $prn = new Printer();
my %available_printers = $prn->list_printers;
print $available_printers{name}->[0],"\n";
print $available_printers{name}->[1],"\n";
print $available_printers{name}->[2],"\n";
print $available_printers{name}->[3],"\n";
print $available_printers{name}->[4],"\n";

$prn->print_command('linux' => {'type' => 'pipe',
                                'command' => 'lpr -P lp'},
                    'MSWin32' => {'type' => 'command',
                                 'command' => 'c:\Programme\Ghostscript\gs8.14\bin\gswin32c.exe -sDEVICE=mswinpr2 -dNOPAUSE -dBATCH $spoolfile'}
                    );

$prn->use_default;
$prn->print(@data);