M
Maarkr
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
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