C
ccc31807
I generate a series of paper files every morning, anywhere from a few
dozen to a couple of thousand. I have copied the function that I use
below. This function takes a file name, which is an ASCII file with a
name like 'john_doe.txt' with a number of fields (name, address,
previous college, enrollment date, etc., maybe 30 in all) and the
resulting output is distriubted to personnel for further processing
and filing (in a physical file folder -- which is one reason why we
need to actually print the file).
We have an employee who has been used to getting output from an Access
database. The field names are printed in italic, the values are
printed in san-serif, and the values have nice little boxes drawn
around them. She has convinced everyone that they all need pretty
output rather than a plain ASCII output.
So ... I'm sitting here wondering how I can convince the printer to
print some part in italics, some part in sans-serif, and draw pretty
boxes. Any ideas?
Thanks, CC.
use File::Copy;
....
sub print_file
{
$print_file = shift;
$print_test = copy($print_file, '//serprintserver/SERITS') or
warn "could not print, $!";
if ($print_test == 1)
{
print "Printed $print_file\n";
unlink $print_file;
}
}
dozen to a couple of thousand. I have copied the function that I use
below. This function takes a file name, which is an ASCII file with a
name like 'john_doe.txt' with a number of fields (name, address,
previous college, enrollment date, etc., maybe 30 in all) and the
resulting output is distriubted to personnel for further processing
and filing (in a physical file folder -- which is one reason why we
need to actually print the file).
We have an employee who has been used to getting output from an Access
database. The field names are printed in italic, the values are
printed in san-serif, and the values have nice little boxes drawn
around them. She has convinced everyone that they all need pretty
output rather than a plain ASCII output.
So ... I'm sitting here wondering how I can convince the printer to
print some part in italics, some part in sans-serif, and draw pretty
boxes. Any ideas?
Thanks, CC.
use File::Copy;
....
sub print_file
{
$print_file = shift;
$print_test = copy($print_file, '//serprintserver/SERITS') or
warn "could not print, $!";
if ($print_test == 1)
{
print "Printed $print_file\n";
unlink $print_file;
}
}