Özel Arama
Yabancı bir sitede uygulanmış kodları inceleyip derledim. Öncelikle şu bağlantıdaki demo dosyayı indirip kurmanız gerekiyor.
Universal Document Converter
Kurulum bittikten sonra referans tablosunu açıp ilgili referansı (Universal Document Converter Type Library) işaretleyin.
- Kod: Tümünü seç
Sub PDFiJPEyeCevir()
PrintAdobePDFToJPEG "C:\Users\Tarkan\Desktop\Scan1.PDF"
End Sub
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 New UDC.APIWrapper
Dim itfPrinter As UDC.Printer
Dim itfProfile As UDC.IProfile
Set objUDC = New UDC.APIWrapper
Set itfPrinter = objUDC.Printers("Universal Document Converter")
Set itfProfile = itfPrinter.Profile
objUDC.DefaultPrinter = "Universal Document Converter"
profilepath = "C:\Users\Tarkan\AppData\Roaming\UDC Profiles\"
itfProfile.Load (profilepath & "PDF to JPEG.xml")
itfProfile.OutputLocation.Mode = LM_PREDEFINED
itfProfile.OutputLocation.FolderPath = "C:\PDF2JPG"
itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER
On Error Resume Next
Set objAdobeApp = CreateObject("AcroExch.App")
Set itfAVDocument = CreateObject("AcroExch.AVDoc")
If itfAVDocument.Open(strFilePath, "") = True Then
Set itfPDDocument = itfAVDocument.GetPDDoc()
nPages = itfPDDocument.GetNumPages()
Call itfAVDocument.PrintPagesSilent(0, nPages - 1, 0, True, True)
Call itfAVDocument.Close(True)
Set itfAVDocument = Nothing
Set itfPDDocument = Nothing
End If
Call objAdobeApp.Exit
Set objAdobeApp = Nothing
Set objUDC = Nothing: Set itfPrinter = Nothing: Set itfProfile = Nothing
profilepath = vbNullString: strFilePath = vbNullString
End Sub
Sonra kodları çalıştırarak hedefteki PDF dosyasını JPG resmine çevirebiliyorsunuz.
