# 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();


##</code><code>##

Set AcroExchApp = CreateObject("AcroExch.App")
Set AVDoc = AcroExchApp.GetActiveDoc
Set PDDoc = AVDocTarget.GetPDDoc

If PDDoc.Save(PDSaveFull, "c:\test.pdf") = False Then
   MsgBox "Unable to save image"
Else: MsgBox "The file is saved"