# Save as PDF
$Excel->ActiveWindow->SelectedSheets->PrintOut({
               Copy => 1,
               ActivePrinter => 'Acrobat PDFWriter'});

# Save as Excel
$Book->SaveAs({Filename =>'C:\report\results\check_all.xls',
              FileFormat => xlWorkbookNormal});  
$Book->Close();
$Excel->Quit();