use Win32::Printer::Direct;

sub printFile {
	my $filename = shift;

	my $val = Printfile("HP DeskJet 870Cxi", $filename);
	return ($val == 1);
}

##</code><code>##

use Win32::API;
my $shellopen = new Win32::API("shell32", "ShellExecute",
                             ['N', 'P', 'P', 'P', 'P', 'I'],
                              'N');
sub printFile {

	my $filename = shift;
	if ($shellopen) {
		$shellopen->Call(0, "print", $filename, 0, 0, 0);
		print "Printing $filename...\n";
	}

}

##</code><code>##

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);