Jump to PPT from Access

[Keesw]

Hello All,

I have a form on which I want to put a button which will take the user to a set of instructions in PowerPoint. I found the code below on another thread and initially thought it was working.

Private Sub Command45_Click()
Dim AppPPT As Object
Set AppPPT = CreateObject("PowerPoint.Application")
AppPPT.Visible = True
' If you want to hide the PowerPoint Window, set the visible property
' to FALSE and WithWindow argument of Open method to FALSE too.
With AppPPT.Presentations.Open("c:\scales flow chart.ppt")
DoEvents
' Use .PrintOptions property to specify any additional settings
' Set background printing off else, PowerPoint will terminate
' before printing is completed.
.PrintOptions.PrintInBackground = False
.PrintOut
.PrintOptions.PrintInBackground = True
End With
AppPPT.Quit
Set AppPPT = Nothing
End Sub

What it seems to be doing is opening the PowerPoint, printing it and then closing it. I do not want to print it, just have it open for the user to read. Can someone advise me on what to change ?....I am obviously out of my depth !...TIA

 

[ghudson]

If you do not care which slide number is opened then you can use the Shell() function to open the *.ppt file. Search here or the Access help files for the Shell function for more info and examples.