Select Code to Download

$workbook->{ActivePrinter} = "Auto HP Deskjet 6500 Series on HOMEDELLT
+OWER on Ne02:";

$workbook->PrintOut({ActivePrinter => "Auto HP Deskjet 6500 Series on 
+HOMEDELLTOWER on Ne02:"});