open (MYPRT, "\\\\server\\prtshare");
open (MYFILE, "c:\\temp\\report.txt");
@lines = <MYFILE>;
close MYFILE;
print MYPRT CHR(27). "\&l 2a 0o 0S" . CHR(27) . "\(10U" . CHR(27) . "\(s 0p16.67h 8.5v 0s 0b 0T\n";
for (@lines){print MYPRT "$_";}
close MYPRT;