Private Sub PrintPowerPointPresentation(ByVal strFilePath As String)
On Error Resume Next
Dim App As Object
Dim Presentation As Object
Dim nSlides As Long
App = CreateObject("PowerPoint.Application")
Presentation = App.Presentations.Open(strFilePath,True,True,False)
If Presentation = Not Nothing Then
Presentation.PrintOptions.PrintInBackground = 0
Presentation.PrintOptions.ActivePrinter = _
"Universal Document Converter"
Call Presentation.PrintOut()
Call Presentation.Close()
Presentation = Nothing
End If
Call App.Quit()
App = Nothing
End Sub
|