Help for this page
system("notepad.exe /p \"filename.txt\"");
system("print [/D:device] [[drive:][path]filename[...]]");
$|=1; my $i=0; ... close SPOOL; system("copy /B $spoolfile LPT1:"); unlink $spoolfile;
open( LPT, "+>LPT1" ) or die "Can't access printer: $!"; print LPT "Text to print\n\f"; close (LPT);
#! perl -w use strict; ... $EndDocPrinter->Call($hprinter) or ShowError('EndDocPrinter'); $ClosePrinter->Call($hprinter); }
$file="foo.txt"; print `type $file > lpt1:`; print `echo "\f" > lpt1:`;
if (-e "$ENV{'WINDIR'}/System32/mshtml.dll") { $dll = "$ENV{'WINDIR'}/System32/mshtml.dll"; ... #note: can't use this to print multiple files system("rundll32.exe $dll,PrintHTML $outfile");
www.com | www.net | www.org
No recent polls found