Imports IronPdf
Imports System
Module Program
    Sub Main()
        ' Load the PDF document
        Dim pdf As PdfDocument = PdfDocument.FromFile("input.pdf")
        ' Convert PDF to JPG images with default settings
        pdf.RasterizeToImageFiles("output_page_*.jpg")
        ' The * wildcard creates numbered files for each page
        Console.WriteLine("PDF pages converted to JPG successfully!")
    End Sub
End Module

Imports IronPdf
Imports System
Module Program
    Sub Main()
        ' Load the PDF document
        Dim pdf As PdfDocument = PdfDocument.FromFile("input.pdf")
        ' Convert PDF to JPG images with default settings
        pdf.RasterizeToImageFiles("output_page_*.jpg")
        ' The * wildcard creates numbered files for each page
        Console.WriteLine("PDF pages converted to JPG successfully!")
    End Sub
End Module

Imports IronPdf
Module Program
    Sub Main()
        ' Load PDF document
        Dim pdf As PdfDocument = PdfDocument.FromFile("input.pdf")
        ' Convert only the first page to JPEG
        Dim pageIndexes() As Integer = {0}  ' Page indexes start at 0
        pdf.RasterizeToImageFiles("first_page_*.jpg", pageIndexes, 
                                   IronPdf.Imaging.ImageType.Jpeg)
        ' Convert specific page range (pages 2-5)
        Dim rangeIndexes() As Integer = {1, 2, 3, 4}
        pdf.RasterizeToImageFiles("selected_*.jpg", rangeIndexes)
    End Sub
End Module

Imports IronPdf
Module Program
    Sub Main()
        ' Load PDF document
        Dim pdf As PdfDocument = PdfDocument.FromFile("input.pdf")
        ' Convert only the first page to JPEG
        Dim pageIndexes() As Integer = {0}  ' Page indexes start at 0
        pdf.RasterizeToImageFiles("first_page_*.jpg", pageIndexes, 
                                   IronPdf.Imaging.ImageType.Jpeg)
        ' Convert specific page range (pages 2-5)
        Dim rangeIndexes() As Integer = {1, 2, 3, 4}
        pdf.RasterizeToImageFiles("selected_*.jpg", rangeIndexes)
    End Sub
End Module

Imports IronPdf
Module Program
    Sub Main()
        Dim pdf As PdfDocument = PdfDocument.FromFile("document.pdf")
       ' 1. Creating high-quality images for print
       ' This returns a list of Bitmap objects (one for each page)
        Dim images As IronSoftware.Drawing.AnyBitmap() = pdf.ToBitmapHighQuality(300, False)
        Dim pageCount As Integer = 1
        ' 2. Loop through the list and save each Bitmap to a file
        For Each image As System.Drawing.Bitmap In images
        Dim outputPath As String = String.Format("high_quality_{0}.jpg", pageCount)
       ' Use the Save method to write the image to disk
       image.Save(outputPath, System.Drawing.Imaging.ImageFormat.Jpeg)
       pageCount += 1
Next
' For web thumbnails, use lower settings
pdf.RasterizeToImageFiles("thumbnail_*.jpg", Imaging.ImageType.Jpeg, 150, True)
    End Sub
End Module

Imports IronPdf
Module Program
    Sub Main()
        Dim pdf As PdfDocument = PdfDocument.FromFile("document.pdf")
       ' 1. Creating high-quality images for print
       ' This returns a list of Bitmap objects (one for each page)
        Dim images As IronSoftware.Drawing.AnyBitmap() = pdf.ToBitmapHighQuality(300, False)
        Dim pageCount As Integer = 1
        ' 2. Loop through the list and save each Bitmap to a file
        For Each image As System.Drawing.Bitmap In images
        Dim outputPath As String = String.Format("high_quality_{0}.jpg", pageCount)
       ' Use the Save method to write the image to disk
       image.Save(outputPath, System.Drawing.Imaging.ImageFormat.Jpeg)
       pageCount += 1
Next
' For web thumbnails, use lower settings
pdf.RasterizeToImageFiles("thumbnail_*.jpg", Imaging.ImageType.Jpeg, 150, True)
    End Sub
End Module

Imports IronPdf
Imports System.IO
Module Program
    Sub Main()
        ' Load the entire document
        Dim pdf As PdfDocument = PdfDocument.FromFile("manual.pdf")
        ' Create output directory if needed
        Dim outputDir As String = "converted_images"
        If Not Directory.Exists(outputDir) Then
            Directory.CreateDirectory(outputDir)
        End If
        ' Convert all pages with custom naming
        Dim outputPath As String = Path.Combine(outputDir, "page_*.jpg")
        pdf.RasterizeToImageFiles(outputPath)
        ' Report completion
        Console.WriteLine($"Converted {pdf.PageCount} pages to JPG format")
    End Sub
End Module

Imports IronPdf
Imports System.IO
Module Program
    Sub Main()
        ' Load the entire document
        Dim pdf As PdfDocument = PdfDocument.FromFile("manual.pdf")
        ' Create output directory if needed
        Dim outputDir As String = "converted_images"
        If Not Directory.Exists(outputDir) Then
            Directory.CreateDirectory(outputDir)
        End If
        ' Convert all pages with custom naming
        Dim outputPath As String = Path.Combine(outputDir, "page_*.jpg")
        pdf.RasterizeToImageFiles(outputPath)
        ' Report completion
        Console.WriteLine($"Converted {pdf.PageCount} pages to JPG format")
    End Sub
End Module

Imports IronPdf
Module Progra
    Sub Main()
        ' Use Using statement for automatic disposal
        Using pdf As PdfDocument = PdfDocument.FromFile("large_file.pdf")
            ' Process in batches for very large documents
            Dim batchSize As Integer = 10
            Dim pageCount As Integer = pdf.PageCount
            For i As Integer = 0 To pageCount - 1 Step batchSize
                Dim endIndex As Integer = Math.Min(i + batchSize - 1, pageCount - 1)
                Dim batchPages As New List(Of Integer)
                For j As Integer = i To endIndex
                    batchPages.Add(j)
                Next
                pdf.RasterizeToImageFiles($"batch_{i}_*.jpg", batchPages.ToArray())
            Next
        End Using  ' Automatically disposes resources
    End Sub
End Module

Imports IronPdf
Module Progra
    Sub Main()
        ' Use Using statement for automatic disposal
        Using pdf As PdfDocument = PdfDocument.FromFile("large_file.pdf")
            ' Process in batches for very large documents
            Dim batchSize As Integer = 10
            Dim pageCount As Integer = pdf.PageCount
            For i As Integer = 0 To pageCount - 1 Step batchSize
                Dim endIndex As Integer = Math.Min(i + batchSize - 1, pageCount - 1)
                Dim batchPages As New List(Of Integer)
                For j As Integer = i To endIndex
                    batchPages.Add(j)
                Next
                pdf.RasterizeToImageFiles($"batch_{i}_*.jpg", batchPages.ToArray())
            Next
        End Using  ' Automatically disposes resources
    End Sub
End Module