Help for this page

Select Code to Download


  1. or download this
    use Win32::Printer::Direct;

...
    my $val = Printfile("HP DeskJet 870Cxi", $filename);
    return ($val == 1);
}
  2. or download this
    use Win32::API;
my $shellopen = new Win32::API("shell32", "ShellExecute",
...
    }

}
  3. or download this
    my $exec = '"K:\\Program\\Adobe\\Acrobat 7.0\\Acrobat\\Acrobat.exe" /t
+ "a_pdf_file.pdf" "HP DeskJet 870Cxi"';

system($exec);
system($exec);
system($exec);