Win32::Printer - Multiple Line Output

[Jack D.]

I'm trying to print multiple lines to Win32::Printer *without* using a
temporary file. Everytime it mushes the data into one line with little boxes
being printed where the carriage returns are. Can anyone help me out here?

##Sample Code##
use Win32::Printer;

my @array = keys %ENV;

printAlpha();

sub printAlpha {
  my $dc = new Win32::Printer(  papersize       => A4,
                                description     => 'Test Print',
                                unit            => 'mm') or die "Failed to
create object";
  if ($dc) {
         my $textToPrint = join("\r\n",@array);
         my $font = $dc->Font('Times New Roman', 12);
         $dc->Font($font);
         $dc->Color(0, 0, 0);
         $dc->Write($textToPrint, 10, 10);
       $dc->Close;
  }
}
__END__


Jack
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs