Imports IronPdf

PdfDocument.FromFile("input.pdf") _
    .CopyPages({2, 0, 1, 3}) _
    .SaveAs("reordered.pdf")

Imports IronPdf

PdfDocument.FromFile("input.pdf") _
    .CopyPages({2, 0, 1, 3}) _
    .SaveAs("reordered.pdf")

IronPdf.License.LicenseKey = "YOUR-LICENSE-KEY"

IronPdf.License.LicenseKey = "YOUR-LICENSE-KEY"

Imports IronPdf

' Load the source document from file path
Dim pdf As PdfDocument = PdfDocument.FromFile("quarterly-report.pdf")

' Define new page order: move page 3 to front, then pages 1, 2, 0
Dim pageOrder As Integer() = {3, 1, 2, 0}

' Copy each requested page into its own PdfDocument
Dim pageDocs As New List(Of PdfDocument)()
For Each idx In pageOrder
    ' CopyPage returns a PdfDocument containing only that page
    Dim single As PdfDocument = pdf.CopyPage(idx)
    pageDocs.Add(single)
Next

' Merge the single-page docs into one ordered document
Using merged As PdfDocument = PdfDocument.Merge(pageDocs.ToArray())
    ' Save the new ordered PDF
    merged.SaveAs("report-reorganized.pdf")
End Using

Imports IronPdf

' Load the source document from file path
Dim pdf As PdfDocument = PdfDocument.FromFile("quarterly-report.pdf")

' Define new page order: move page 3 to front, then pages 1, 2, 0
Dim pageOrder As Integer() = {3, 1, 2, 0}

' Copy each requested page into its own PdfDocument
Dim pageDocs As New List(Of PdfDocument)()
For Each idx In pageOrder
    ' CopyPage returns a PdfDocument containing only that page
    Dim single As PdfDocument = pdf.CopyPage(idx)
    pageDocs.Add(single)
Next

' Merge the single-page docs into one ordered document
Using merged As PdfDocument = PdfDocument.Merge(pageDocs.ToArray())
    ' Save the new ordered PDF
    merged.SaveAs("report-reorganized.pdf")
End Using

Imports IronPdf

' Load PDF document with several pages
Dim doc = PdfDocument.FromFile("quarterly-report.pdf")
Dim count As Integer = doc.PageCount

' Build reversed single-page PDFs
Dim pages As New List(Of PdfDocument)()
For i As Integer = count - 1 To 0 Step -1
    ' Copy a single page as a standalone PdfDocument
    pages.Add(doc.CopyPage(i))
Next

' Merge all the reversed single-page PDFs
Using reversed = PdfDocument.Merge(pages.ToArray())
    ' Save to a new filename
    reversed.SaveAs("report-reversed.pdf")
End Using

Imports IronPdf

' Load PDF document with several pages
Dim doc = PdfDocument.FromFile("quarterly-report.pdf")
Dim count As Integer = doc.PageCount

' Build reversed single-page PDFs
Dim pages As New List(Of PdfDocument)()
For i As Integer = count - 1 To 0 Step -1
    ' Copy a single page as a standalone PdfDocument
    pages.Add(doc.CopyPage(i))
Next

' Merge all the reversed single-page PDFs
Using reversed = PdfDocument.Merge(pages.ToArray())
    ' Save to a new filename
    reversed.SaveAs("report-reversed.pdf")
End Using

Imports IronPdf

' Load the input PDF file
Dim pdf = PdfDocument.FromFile("presentation.pdf")
Dim sourceIndex As Integer = 1   ' page to move
Dim targetIndex As Integer = 3   ' destination position

' Track direction to handle index shift after removal
Dim movingForward As Boolean = targetIndex > sourceIndex

' 1. Copy the page to move (produces a one-page PdfDocument)
Dim pageDoc = pdf.CopyPage(sourceIndex)

' 2. Remove the original page from its current position
pdf.RemovePage(sourceIndex)

' 3. Adjust target index if moving forward (removal shifts remaining pages left)
If movingForward Then
    targetIndex -= 1
End If

' 4. Insert the copied page at the target position
pdf.InsertPdf(pageDoc, targetIndex)

' Save the result
pdf.SaveAs("presentation-reordered.pdf")

Imports IronPdf

' Load the input PDF file
Dim pdf = PdfDocument.FromFile("presentation.pdf")
Dim sourceIndex As Integer = 1   ' page to move
Dim targetIndex As Integer = 3   ' destination position

' Track direction to handle index shift after removal
Dim movingForward As Boolean = targetIndex > sourceIndex

' 1. Copy the page to move (produces a one-page PdfDocument)
Dim pageDoc = pdf.CopyPage(sourceIndex)

' 2. Remove the original page from its current position
pdf.RemovePage(sourceIndex)

' 3. Adjust target index if moving forward (removal shifts remaining pages left)
If movingForward Then
    targetIndex -= 1
End If

' 4. Insert the copied page at the target position
pdf.InsertPdf(pageDoc, targetIndex)

' Save the result
pdf.SaveAs("presentation-reordered.pdf")

Imports IronPdf
Imports System.IO

' Load PDF from byte array (simulating input from a database or API response)
Dim pdfBytes As Byte() = File.ReadAllBytes("report-with-blank.pdf")
Dim pdf As New PdfDocument(pdfBytes)

' Delete the blank page at index 2 (zero-based)
pdf.RemovePage(2)

' Reorder remaining pages: new sequence from a four-page document
Dim reorderedPdf = pdf.CopyPages(New Integer() {1, 0, 2, 3})

' Export to MemoryStream for further processing (e.g., HTTP response body)
Dim outputStream As MemoryStream = reorderedPdf.Stream

' Or save directly using the BinaryData property
File.WriteAllBytes("cleaned-report.pdf", reorderedPdf.BinaryData)

Imports IronPdf
Imports System.IO

' Load PDF from byte array (simulating input from a database or API response)
Dim pdfBytes As Byte() = File.ReadAllBytes("report-with-blank.pdf")
Dim pdf As New PdfDocument(pdfBytes)

' Delete the blank page at index 2 (zero-based)
pdf.RemovePage(2)

' Reorder remaining pages: new sequence from a four-page document
Dim reorderedPdf = pdf.CopyPages(New Integer() {1, 0, 2, 3})

' Export to MemoryStream for further processing (e.g., HTTP response body)
Dim outputStream As MemoryStream = reorderedPdf.Stream

' Or save directly using the BinaryData property
File.WriteAllBytes("cleaned-report.pdf", reorderedPdf.BinaryData)

Imports IronPdf
Imports Microsoft.AspNetCore.Mvc
Imports System.IO

<ApiController>
<Route("api/pdf")>
Public Class PdfController
    Inherits ControllerBase

    <HttpPost("reorder")>
    Public Function Reorder(file As IFormFile, <FromQuery> order As String) As IActionResult
        ' Parse comma-separated page indexes from query string
        Dim indexes = order.Split(","c).Select(Function(s) Integer.Parse(s)).ToArray()

        Using stream = file.OpenReadStream()
            Using ms = New MemoryStream()
                stream.CopyTo(ms)

                Dim pdf = New PdfDocument(ms.ToArray())
                Dim reordered = pdf.CopyPages(indexes)

                ' Return the reordered PDF as a downloadable file
                Return File(reordered.BinaryData, "application/pdf", "reordered.pdf")
            End Using
        End Using
    End Function
End Class

Imports IronPdf
Imports Microsoft.AspNetCore.Mvc
Imports System.IO

<ApiController>
<Route("api/pdf")>
Public Class PdfController
    Inherits ControllerBase

    <HttpPost("reorder")>
    Public Function Reorder(file As IFormFile, <FromQuery> order As String) As IActionResult
        ' Parse comma-separated page indexes from query string
        Dim indexes = order.Split(","c).Select(Function(s) Integer.Parse(s)).ToArray()

        Using stream = file.OpenReadStream()
            Using ms = New MemoryStream()
                stream.CopyTo(ms)

                Dim pdf = New PdfDocument(ms.ToArray())
                Dim reordered = pdf.CopyPages(indexes)

                ' Return the reordered PDF as a downloadable file
                Return File(reordered.BinaryData, "application/pdf", "reordered.pdf")
            End Using
        End Using
    End Function
End Class

Imports IronPdf

' Load two separate PDF files
Dim docA = PdfDocument.FromFile("section-a.pdf")
Dim docB = PdfDocument.FromFile("section-b.pdf")

' Reorder pages within each source document
Dim reorderedA = docA.CopyPages(New Integer() {1, 0, 2})
Dim reorderedB = docB.CopyPages(New Integer() {0, 2, 1})

' Merge into a single output document
Using combined = PdfDocument.Merge(reorderedA, reorderedB)
    combined.SaveAs("combined-report.pdf")
End Using

Imports IronPdf

' Load two separate PDF files
Dim docA = PdfDocument.FromFile("section-a.pdf")
Dim docB = PdfDocument.FromFile("section-b.pdf")

' Reorder pages within each source document
Dim reorderedA = docA.CopyPages(New Integer() {1, 0, 2})
Dim reorderedB = docB.CopyPages(New Integer() {0, 2, 1})

' Merge into a single output document
Using combined = PdfDocument.Merge(reorderedA, reorderedB)
    combined.SaveAs("combined-report.pdf")
End Using