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