Application.Quit problem

[lpking2005]

hi, i currently have this code attached to a button on a userform
This button will open a powerpoint presentation, print it then should close powerpoint.
But all it does is print, closes the active presentation and leaves powerpoint open.
Application.Quit does not seem to be working.


Private Sub CommandButton1_Click()
'
'Open and print Silicone Test Sheets (powerpoint)
'
Dim ppt As Object
Set ppt = CreateObject("PowerPoint.Application")
With ppt
.Visible = True
.Presentations.Open "T:\Production\PROD MOULDING\Digital Line Manuals\General\Forms\Silicon Test Sheets.ppt"
.ActivePresentation.PrintOut
.ActivePresentation.Close
.Application.Quit
End With

Unload Me

End Sub

 

[GTO]

I believe that ppt points at the app. Try ditching Application and just using .Quit

 

[lpking2005]

ha ha, of course! silly me.

Many thanks!

 

[GTO]

Happy to help