From: Maarkr on
my code doesn't always do what I want...
I want to print preview a presentation from within Access:

Private Sub CmdPrint1_Click()
Dim pres As PowerPoint.Presentation, stPath As String

stPath = "S:\Training\Compliance-20090715.pptx"

Set myPP = New PowerPoint.Application
myPP.WindowState = ppWindowMinimized
Set pres = myPP.Presentations.Open(stPath)
pres.PrintOut
pres.Close
Set myPP = Nothing

End Sub