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>PDF Documents to JPEG

Converting PDF Documents to JPEG for Microsoft Visual Basic 6.0

' 1) Adobe Acrobat Writer 4.0 or above should be installed and activated on your PC.
'    Adobe Acrobat Reader does not have COM interface and cannot be used as COM-server!
' 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 PrintAdobePDFToJPEG(strFilePath As String)
  Dim objAdobeApp As Object
  Dim itfAVDocument As Object
  Dim itfPDDocument As Object
  Dim nPages As Long
  Dim objUDC As IUDC
  Dim itfPrinter As IUDCPrinter
  Dim itfProfile As IProfile
' Use Universal Document Converter API to change settings of converterd document
  Set objUDC = New UDC.APIWrapper
  Set itfPrinter = objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.Profile
' Adobe Acrobat API allow to print only on the default printer
  objUDC.DefaultPrinter = "Universal Document Converter"
' Load profile located in folder "%APPDATA%\UDC Profiles".
' Value of %APPDATA% variable should be received using Windows API's SHGetSpecialFolderPath function.
' Or you can move default profiles into a folder you prefer.          
  itfProfile.Load("PDF to JPEG.xml")
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "C:\Out"
  itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER
' Run Adobe Acrobat as COM-server
  On Error Resume Next
  Set objAdobeApp = CreateObject("AcroExch.App")
  Set itfAVDocument = CreateObject("AcroExch.AVDoc")
  ' Open PDF document from file
  If itfAVDocument.Open(strFilePath, "") = True Then
    Set itfPDDocument = itfAVDocument.GetPDDoc()
    nPages = itfPDDocument.GetNumPages()
  ' Print all pages of the document
    Call itfAVDocument.PrintPagesSilent(0, nPages - 1, 0, True, True)
  ' Close the document
    Call itfAVDocument.Close(True)
    Set itfAVDocument = Nothing
    Set itfPDDocument = Nothing
  End If
' Close Adobe Acrobat Writer
  Call objAdobeApp.Exit
  Set objAdobeApp = Nothing
End Sub

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