Universal Document Converter
Información general
Soporte técnico
Acerca de fCoder SIA

      Búsqueda en el sitio

      Conversiones populares
Adobe PDF a JPEG
Word Document a PDF
Hojas de cálculo Excel a PDF
PowerPoint a JPEG
Diseño Visio a PDF
Diseño AutoCAD a TIFF
Página web a JPEG
Convertir de cálculo Excel a PDF
Convertir DjVu a PDF
Convertir una página web a PDF

      Tutorial de vídeo
Ver el tutorial

Página principal>Developer Solutions>Examples>Visual Basic.NET>PDF Documents to JPEG

Converting PDF Documents to JPEG

' 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.NET.
' 4) In Visual Basic main menu press "Project->Add Reference...".
' 5) In "Add Reference" window go to "COM" tab and double click into
'    "Universal Document Converter Type Library".

Private Sub PrintAdobePDFToJPEG(ByVal strFilePath As String)

    Dim objAdobeApp As Object
    Dim itfAVDocument As Object
    Dim itfPDDocument As Object
    Dim nPages As Long

    Dim objUDC As UDC.IUDC
    Dim itfPrinter As UDC.IUDCPrinter
    Dim itfProfile As UDC.IProfile

    ' Use Universal Document Converter API to change settings of converterd document
    objUDC = New UDC.APIWrapper
    itfPrinter = objUDC.Printers("Universal Document Converter")
    itfProfile = itfPrinter.Profile

    ' Adobe Acrobat API allow to print only on the default printer
    objUDC.DefaultPrinter = "Universal Document Converter"

    itfProfile.Load("C:\Program Files\Universal Document Converter\UDC Profiles\PDF to JPEG.xml")

    itfProfile.OutputLocation.Mode = UDC.LocationModeID.LM_PREDEFINED
    itfProfile.OutputLocation.FolderPath = "C:\Out"

    itfProfile.PostProcessing.Mode = UDC.PostProcessingModeID.PP_OPEN_FOLDER

    ' Run Adobe Acrobat as COM-server
    On Error Resume Next
    objAdobeApp = CreateObject("AcroExch.App")
    itfAVDocument = CreateObject("AcroExch.AVDoc")

    ' Open PDF document from file
    If itfAVDocument.Open(strFilePath, "") = True Then

        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)
        itfAVDocument = Nothing
        itfPDDocument = Nothing

    End If

    ' Close Adobe Acrobat Writer
    Call objAdobeApp.Exit()
    objAdobeApp = Nothing

End Sub

© 2001-2017 fCoder SIA Acerca de fCoder SIA | Mapa del sitio