Help for this page

Select Code to Download


  1. or download this
    # Save as PDF
$Excel->ActiveWindow->SelectedSheets->PrintOut({
...
              FileFormat => xlWorkbookNormal});  
$Book->Close();
$Excel->Quit();
  2. or download this
    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"