Universal Document Converter
Product Overview
Developer Solutions
Support Service
About fCoder SIA

      Site search

      Popular conversions
PDF to JPG converter
Convert Word to PDF
Convert PDF to TIFF
Autocad to PDF converter
Convert Word to JPG
Powerpoint to PDF converter
Printing to PDF
Convert Excel to PDF
Convert DJVU to PDF
Convert Web Page to PDF

      Video tutorials
Show tutorial

Main page>Developer Solutions>Examples>Visual Basic 6>PowerPoint Presentations to JPEG

Converting PowerPoint Presentations to JPEG for Microsoft Visual Basic 6.0

' 1) Microsoft PowerPoint 97 or above should be installed and activated on your PC.
' 2) Universal Document Converter 5.2 or above should be installed, too.
' 3) Open your project in Microsoft Visual Basic 6.0.
' 4) In Visual Basic main menu press "Project->References".
' 5) In the list of references check "Universal Document Converter Type Library".
Private Sub PrintPowerPointToJPEG(strFilePath As String)
  Dim objUDC As IUDC
  Dim itfPrinter As IUDCPrinter
  Dim itfProfile As IProfile
  Dim objPPTApp As Object
  Dim itfPresentation As Object
  Set objUDC = New UDC.APIWrapper
  Set itfPrinter = objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.Profile
' Use Universal Document Converter API to change settings of converterd document
  itfProfile.PageSetup.ResolutionX = 300
  itfProfile.PageSetup.ResolutionY = 300
  itfProfile.PageSetup.Orientation = PO_LANDSCAPE
  itfProfile.FileFormat.ActualFormat = FMT_JPEG
  itfProfile.FileFormat.JPEG.ColorSpace = CS_TRUECOLOR
  itfProfile.Adjustments.Crop.Mode = CRP_AUTO
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "C:\Out"
  itfProfile.OutputLocation.FileName = "&[DocName(0)] -- page &[Page(3)].&[ImageType]"
  itfProfile.OutputLocation.OverwriteExistingFile = False
  itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER
' Run Microsoft PowerPoint as COM-server
  On Error Resume Next
  Set objPPTApp = CreateObject("PowerPoint.Application")
' Open document from file
  Err = 0 ' Clear GetLastError() value
  Set itfPresentation = objPPTApp.Presentations.Open(strFilePath, 1, 1, 0)
  If Err = 0 Then
  ' Get number of slides in the presentation
    nSlides = itfPresentation.Slides.Count
    If nSlides > 0 Then
    ' Print all slides from the presentation
      itfPresentation.PrintOptions.PrintInBackground = 0
      itfPresentation.PrintOptions.ActivePrinter = "Universal Document Converter"
      Call itfPresentation.PrintOut
    End If
    ' Close the presentation
    Call itfPresentation.Close
    Set itfPresentation = Nothing
  End If
' Close Microsoft PowerPoint
  Call objPPTApp.Quit
  Set objPPTApp = Nothing
End Sub

© fCoder SIA About fCoder SIA | Privacy Policy | Site Map