Problem saving PDF within VBA

I am trying to save a slide in pdf format using Powerpoint 2007. I am finding
that it works on some machines but not others. The specifics are Powerpoint
2007, Adobe Reader 9.2. Here is the code:

Set oTempPres = Presentations.Open("c:\Cert.pptx", WithWindow:=False)
With oTempPres
For x = .Slides.Count To 1 Step -1
If .Slides(x).SlideIndex currentSlide Then
.Slides(x).Delete
End If
Next
.SaveCopyAs "c:\Cert.pptx"
.SaveAs FileName:="c:\Cert.pdf", fileformat:=ppSaveAsPDF
...........

I know some of you have assisted me within this forum before and have been a
great help. Anyone have any idea why this might work sometimes and not
others. It always works on my machine - whether I am executing the module
from the web (I know it is actually doing the executing on my machine) or
locally. This really has me frustrated now :-(

Thanks so much for the help..
--
Wi11y13

Hi,
Do you have the Save As PDF add-in for Office 2007 installed? You can only
run the ppSaveAsPDF enum if it is installed else it will give an automation
error.

Regards,
Shyam Pillai

Image Importer Wizard: http://skp.mvps.org/iiw.htm


"Wi11y13" wrote in message
...
I am trying to save a slide in pdf format using Powerpoint 2007. I am
finding
that it works on some machines but not others. The specifics are
Powerpoint
2007, Adobe Reader 9.2. Here is the code:

Set oTempPres = Presentations.Open("c:\Cert.pptx", WithWindow:=False)
With oTempPres
For x = .Slides.Count To 1 Step -1
If .Slides(x).SlideIndex currentSlide Then
.Slides(x).Delete
End If
Next
.SaveCopyAs "c:\Cert.pptx"
.SaveAs FileName:="c:\Cert.pdf", fileformat:=ppSaveAsPDF
..........

I know some of you have assisted me within this forum before and have been
a
great help. Anyone have any idea why this might work sometimes and not
others. It always works on my machine - whether I am executing the module
from the web (I know it is actually doing the executing on my machine) or
locally. This really has me frustrated now :-(

Thanks so much for the help..
--
Wi11y13