my $pobj = $excel_obj->ActivePrinter;
if ($pobj) { print("Name of default printer =>>$pobj<<\n"); }