Reports

If you haven't found a solution to your problem yet, then try using the following code example. I tested it and got a good result. By the way, I suggest you use the free SDK https://sautinsoft.com/products/pdf/help/net/developer-guide/convert-pdf-to-images.php, I think you'll find the right one for yourself.

`Function ConvertPDFToJPG(ByVal pdfPath As String, ByVal outputPath As String) As String

Try

    If Not File.Exists(pdfPath) Then Return "Error: El archivo PDF no existe."

    Using document = SautinSoft.Pdf.PdfDocument.Load(pdfPath)

        Dim page = document.Pages(0)

        page.Rotate = 270

        Dim imageOptions = New SautinSoft.Pdf.ImageSaveOptions(SautinSoft.Pdf.ImageSaveFormat.Jpeg) With {

            .DpiX = 300,

            .DpiY = 300

        }

        Dim outputFile As String = outputPath & "_page" & imageOptions.PageIndex & ".jpg"

        document.Save(outputFile, imageOptions)

    End Using

    Return "OK"

Catch ex As Exception

    Return ($"Error : {ex.Message}")

End Try

End Function `

Disclaimer: I am an employee of this company.

79721396