Hello all!
I have written a PERL/Tk program to take input from a user and to
print a report back based on the data. It works fine on my Windows
XP system with an HP Laserjet 6MP connected to a standard parallel
port (LPT1). When I copy the program to a different computer
running the same OS but with a different model HP laser printer
(model 1012) connected to the USB port, the program hangs when I try
to print.
Can anyone help me get this program running? If it would be easier,
I could alternatively print to a standalone network
printer/copier/scanner. This might arguably be better as then the
solution could be used from any of our computers.
Here is an excerpt of the essential part of the program. Note, the
variables, "$v1c", "$vck01" etc. are global variables and are all
valid. As I said, the program works great on my computer.
sub vkprint {
format vkfmttop =
DAILY CASH RECONCILIATION
Denomination Qty Value Checks Credit Cards Paid
Outs
--------------------------------------------------------------------
-
.
format vkfmt =
@>>>>>>>>>>>@[EMAIL PROTECTED]@[EMAIL PROTECTED]@########.#
#
$text1, $text2, $text3, $text4, $text5, $text6
.
open LPT, '>LPT1' or die "Can't open printer: $!";
select LPT;
$~ = 'vkfmt';
$^ = 'vkfmttop';
$text1 = "1c";
$text2 = $v1c;
$text3 = $v1c * .01;
$text4 = $vck01;
$text5 = $vcc01;
$text6 = $poe01;
write;
[Additional write / print commands and calculations deleted for
clarity]
print LPT "\f";
close LPT;
}
Thank you for your assistance.
Valerie
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
