>
> Hi All,
>
> I was able to send the file to the printer using: copy
> ($print_file, '//hp-exch/HP4100-IS');
> just like the documentation said .. :~) I just had to get
> the server name correct!
>
> Thanks!
>
> Brian
>
>
>
Well, I thought I knew what I was doing. Now I am having a problem w/ the
carriage return. When the file prints to the screen, it looks fine..
however, when it prints to the printer, I does not see the carriage return
and only prints the first line. I have tried inserting "\n" will no luck..
Can someone pls help.
Thanks!
---begin
#!/usr/local/bin/perl
use strict;
use warnings;
use File::Copy;
my $print_file = "C:/brian/test/12345.txt";
open (PRINT, "< $print_file") or die "can't open $print_file : $!";
while( <PRINT> ) {
print;
}
copy ($print_file, '//hp-exch/HP4100-IS');
close PRINT;
---end
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
