Try using 'Draw Mode' (DM) rather than 'String Mode' (SM) - that means
using the
$height = $dc->Write($text, $x, $y, $width, $height, [$format,
[$tab_stop]]);
form of the Write() call.
Rob.
Jack D. wrote:
-----Original Message-----
From: Timothy Johnson [mailto:[EMAIL PROTECTED]
Sent: June 8, 2006 4:31 PM
To: Jack D.; perl-win32-users@listserv.ActiveState.com
Subject: RE: Win32::Printer - Multiple Line Output
Maybe try /r/f instead of /r/n?
I tried "\r\f" ( backslashes:-) ) with the same erroneous one-line result.
Any other ideas? So far I'm down 12 pieces of paper trying to figure this
out. In desperation, I have sent a direct e-mail to the author. I'll post a
follow-up if I get a reply. In the meantime - I'm open to any other
solutions.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Jack D.
Sent: Thursday, June 08, 2006 2:55 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Win32::Printer - Multiple Line Output
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
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
