Out of curiosity, why are you printing directly to the printer? -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Timothy Johnson Sent: Thursday, June 08, 2006 3: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? -----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
