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

##</code><code>##

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