Print Microsoft PowerPoint Presentation to Image Using Visual Basic 6.0

Universal Document Converter is virtual printer software that saves any document you print as an image file. Below is a source code example that can help you to accomplish your task with Universal Document Converter. Please let us know if you cannot find the solution you need.

' Microsoft PowerPoint 97 or above and Universal Document Converter
' should be installed on your PC and PowerPoint should be activated

Private Sub PrintPowerPointPresentation(strFilePath As String)

' Run Microsoft PowerPoint as COM-server
  On Error Resume Next
  Dim App As Object
  Dim Presentation As Object
  Dim nSlides As Long

  Set App = CreateObject("PowerPoint.Application")

' Open presentation from file
  Err = 0 ' Clear GetLastError() value
  Set Presentation = App.Presentations.Open(strFilePath, 1, 1, 0)

  If Err = 0 Then

  ' Get number of slides in the presentation
    nSlides = Presentation.Slides.Count
    
    If nSlides > 0 Then
    
    ' Print all slides from the presentation
      Presentation.PrintOptions.PrintInBackground = 0
      Presentation.PrintOptions.ActivePrinter = _
	                                "Universal Document Converter"
      Call Presentation.PrintOut(0, nSlides, 0, 1, 0)
      
    End If

  ' Close the presentation
    Call Presentation.Close
    Set Presentation = Nothing

  End If

' Close Microsoft PowerPoint
  Call App.Quit
  Set App = Nothing

End Sub