C# PDF Oluşturma - IronPDF Kullanımı için Tam Kılavuz

Imports IronPdf

Dim renderer As New ChromePdfRenderer()

' 1. HTML String to PDF
Dim pdf1 = renderer.RenderHtmlAsPdf("<h1>Hello World</h1>")
pdf1.SaveAs("html-string.pdf")

' 2. HTML String with Assets (Images, CSS, JS)
Dim pdf2 = renderer.RenderHtmlAsPdf("<img src='logo.png'><link rel='stylesheet' href='style.css'>", "C:\assets\")
pdf2.SaveAs("html-with-assets.pdf")

' 3. HTML File to PDF
Dim pdf3 = renderer.RenderHtmlFileAsPdf("example.html")
pdf3.SaveAs("html-file.pdf")

' 4. URL to PDF
Dim pdf4 = renderer.RenderUrlAsPdf("https://ironpdf.com")
pdf4.SaveAs("url.pdf")

Imports IronPdf

Dim renderer As New ChromePdfRenderer()

' 1. HTML String to PDF
Dim pdf1 = renderer.RenderHtmlAsPdf("<h1>Hello World</h1>")
pdf1.SaveAs("html-string.pdf")

' 2. HTML String with Assets (Images, CSS, JS)
Dim pdf2 = renderer.RenderHtmlAsPdf("<img src='logo.png'><link rel='stylesheet' href='style.css'>", "C:\assets\")
pdf2.SaveAs("html-with-assets.pdf")

' 3. HTML File to PDF
Dim pdf3 = renderer.RenderHtmlFileAsPdf("example.html")
pdf3.SaveAs("html-file.pdf")

' 4. URL to PDF
Dim pdf4 = renderer.RenderUrlAsPdf("https://ironpdf.com")
pdf4.SaveAs("url.pdf")

Imports IronPdf
Imports IronSoftware.Drawing
Imports System.Collections.Generic

' Load PDF document
Dim pdf = PdfDocument.FromFile("sample.pdf")

' 1. Extract All Text
Dim allText As String = pdf.ExtractAllText()

' 2. Extract Text from Specific Page
Dim pageText As String = pdf.ExtractTextFromPage(0)

' 3. Extract Text from Multiple Pages
For i As Integer = 0 To pdf.PageCount - 1
    Dim text As String = pdf.ExtractTextFromPage(i)
    Console.WriteLine($"Page {i + 1}: {text}")
Next

' 4. Extract All Images
Dim allImages = pdf.ExtractAllImages()
For Each image In allImages
    image.SaveAs($"image_{allImages.IndexOf(image)}.png")
Next

' 5. Extract Images from Specific Page
Dim pageImages As List(Of AnyBitmap) = pdf.ExtractBitmapsFromPage(0)

' 6. Extract Raw Images (as byte arrays)
Dim rawImages = pdf.ExtractAllRawImages()
For i As Integer = 0 To rawImages.Count - 1
    System.IO.File.WriteAllBytes($"raw_image_{i}.png", rawImages(i))
Next

' 7. Extract Both Text & Images from Each Page
For i As Integer = 0 To pdf.PageCount - 1
    Dim text As String = pdf.ExtractTextFromPage(i)
    Dim images As List(Of AnyBitmap) = pdf.ExtractBitmapsFromPage(i)
    
    Console.WriteLine($"Page {i + 1}: {text}")
    Console.WriteLine($"Found {images.Count} images")
Next

Imports IronPdf
Imports IronSoftware.Drawing
Imports System.Collections.Generic

' Load PDF document
Dim pdf = PdfDocument.FromFile("sample.pdf")

' 1. Extract All Text
Dim allText As String = pdf.ExtractAllText()

' 2. Extract Text from Specific Page
Dim pageText As String = pdf.ExtractTextFromPage(0)

' 3. Extract Text from Multiple Pages
For i As Integer = 0 To pdf.PageCount - 1
    Dim text As String = pdf.ExtractTextFromPage(i)
    Console.WriteLine($"Page {i + 1}: {text}")
Next

' 4. Extract All Images
Dim allImages = pdf.ExtractAllImages()
For Each image In allImages
    image.SaveAs($"image_{allImages.IndexOf(image)}.png")
Next

' 5. Extract Images from Specific Page
Dim pageImages As List(Of AnyBitmap) = pdf.ExtractBitmapsFromPage(0)

' 6. Extract Raw Images (as byte arrays)
Dim rawImages = pdf.ExtractAllRawImages()
For i As Integer = 0 To rawImages.Count - 1
    System.IO.File.WriteAllBytes($"raw_image_{i}.png", rawImages(i))
Next

' 7. Extract Both Text & Images from Each Page
For i As Integer = 0 To pdf.PageCount - 1
    Dim text As String = pdf.ExtractTextFromPage(i)
    Dim images As List(Of AnyBitmap) = pdf.ExtractBitmapsFromPage(i)
    
    Console.WriteLine($"Page {i + 1}: {text}")
    Console.WriteLine($"Found {images.Count} images")
Next

Imports IronPdf
Imports System

Dim renderer As New ChromePdfRenderer()

' 1. Add Footer with Page Numbers
renderer.RenderingOptions.HtmlFooter = New HtmlHeaderFooter() With {
    .HtmlFragment = "<center><i>{page} of {total-pages}</i></center>",
    .MaxHeight = 15, ' mm
    .DrawDividerLine = True
}
renderer.RenderingOptions.MarginBottom = 25

' 2. Add Header with Logo
renderer.RenderingOptions.HtmlHeader = New HtmlHeaderFooter() With {
    .HtmlFragment = "<img src='logo.png'>",
    .MaxHeight = 20, ' mm
    .BaseUrl = New Uri("C:\assets\images\").AbsoluteUri
}
renderer.RenderingOptions.MarginTop = 25

' 3. Render HTML to PDF
Dim pdf = renderer.RenderHtmlAsPdf("<h1>Document Title</h1><p>Content...</p>")
pdf.SaveAs("output.pdf")

Imports IronPdf
Imports System

Dim renderer As New ChromePdfRenderer()

' 1. Add Footer with Page Numbers
renderer.RenderingOptions.HtmlFooter = New HtmlHeaderFooter() With {
    .HtmlFragment = "<center><i>{page} of {total-pages}</i></center>",
    .MaxHeight = 15, ' mm
    .DrawDividerLine = True
}
renderer.RenderingOptions.MarginBottom = 25

' 2. Add Header with Logo
renderer.RenderingOptions.HtmlHeader = New HtmlHeaderFooter() With {
    .HtmlFragment = "<img src='logo.png'>",
    .MaxHeight = 20, ' mm
    .BaseUrl = New Uri("C:\assets\images\").AbsoluteUri
}
renderer.RenderingOptions.MarginTop = 25

' 3. Render HTML to PDF
Dim pdf = renderer.RenderHtmlAsPdf("<h1>Document Title</h1><p>Content...</p>")
pdf.SaveAs("output.pdf")

Imports IronPdf

' Load existing PDF with form fields
Dim pdf = PdfDocument.FromFile("EditableForm.pdf")

' Fill text fields
pdf.Form.FindFormField("firstname").Value = "John"
pdf.Form.FindFormField("lastname").Value = "Smith"
pdf.Form.FindFormField("email").Value = "john.smith@example.com"

' Fill radio button
pdf.Form.FindFormField("gender").Value = "Male"

' Fill dropdown/combobox
pdf.Form.FindFormField("country").Value = "USA"

' Fill checkbox ("Yes" to check, "No" to uncheck)
pdf.Form.FindFormField("subscribe").Value = "Yes"

' Fill textarea (use vbCrLf for line breaks)
pdf.Form.FindFormField("comments").Value = "This is a comment." & vbCrLf & "Second line here."

' Save filled form
pdf.SaveAs("FilledForm.pdf")

Imports IronPdf

' Load existing PDF with form fields
Dim pdf = PdfDocument.FromFile("EditableForm.pdf")

' Fill text fields
pdf.Form.FindFormField("firstname").Value = "John"
pdf.Form.FindFormField("lastname").Value = "Smith"
pdf.Form.FindFormField("email").Value = "john.smith@example.com"

' Fill radio button
pdf.Form.FindFormField("gender").Value = "Male"

' Fill dropdown/combobox
pdf.Form.FindFormField("country").Value = "USA"

' Fill checkbox ("Yes" to check, "No" to uncheck)
pdf.Form.FindFormField("subscribe").Value = "Yes"

' Fill textarea (use vbCrLf for line breaks)
pdf.Form.FindFormField("comments").Value = "This is a comment." & vbCrLf & "Second line here."

' Save filled form
pdf.SaveAs("FilledForm.pdf")

Imports Aspose.Pdf
Imports Aspose.Pdf.Text

Using document As New Document()
    ' Add page objects
    Dim page = document.Pages.Add()
    
    ' Add image - requires Rectangle positioning (You can add tiff images as well)
    page.AddImage("logo.png", New Rectangle(20, 730, 120, 830))
    
    ' Add text - requires manual positioning
    Dim header As New TextFragment("Company Report")
    header.TextState.Font = FontRepository.FindFont("Arial")
    header.TextState.FontSize = 24
    header.HorizontalAlignment = HorizontalAlignment.Center
    header.Position = New Position(130, 720)
    page.Paragraphs.Add(header)
    
    ' Add table - extensive configuration required
    Dim table As New Table With {
        .ColumnWidths = "100 100 100",
        .Border = New BorderInfo(BorderSide.Box, 1F, Color.Black),
        .DefaultCellBorder = New BorderInfo(BorderSide.Box, 0.5F, Color.Gray),
        .DefaultCellPadding = New MarginInfo(4.5, 4.5, 4.5, 4.5)
    }
    
    ' Add header row
    Dim headerRow = table.Rows.Add()
    headerRow.Cells.Add("Name")
    headerRow.Cells.Add("Age")
    headerRow.Cells.Add("City")
    
    ' Style each header cell individually
    For Each cell As Cell In headerRow.Cells
        cell.BackgroundColor = Color.LightGray
        cell.DefaultCellTextState.FontSize = 12
    Next
    
    ' Add data row
    Dim dataRow = table.Rows.Add()
    dataRow.Cells.Add("John Doe")
    dataRow.Cells.Add("30")
    dataRow.Cells.Add("New York")
    
    page.Paragraphs.Add(table)
    
    ' Save document
    document.Save("Report.pdf")
End Using

Imports Aspose.Pdf
Imports Aspose.Pdf.Text

Using document As New Document()
    ' Add page objects
    Dim page = document.Pages.Add()
    
    ' Add image - requires Rectangle positioning (You can add tiff images as well)
    page.AddImage("logo.png", New Rectangle(20, 730, 120, 830))
    
    ' Add text - requires manual positioning
    Dim header As New TextFragment("Company Report")
    header.TextState.Font = FontRepository.FindFont("Arial")
    header.TextState.FontSize = 24
    header.HorizontalAlignment = HorizontalAlignment.Center
    header.Position = New Position(130, 720)
    page.Paragraphs.Add(header)
    
    ' Add table - extensive configuration required
    Dim table As New Table With {
        .ColumnWidths = "100 100 100",
        .Border = New BorderInfo(BorderSide.Box, 1F, Color.Black),
        .DefaultCellBorder = New BorderInfo(BorderSide.Box, 0.5F, Color.Gray),
        .DefaultCellPadding = New MarginInfo(4.5, 4.5, 4.5, 4.5)
    }
    
    ' Add header row
    Dim headerRow = table.Rows.Add()
    headerRow.Cells.Add("Name")
    headerRow.Cells.Add("Age")
    headerRow.Cells.Add("City")
    
    ' Style each header cell individually
    For Each cell As Cell In headerRow.Cells
        cell.BackgroundColor = Color.LightGray
        cell.DefaultCellTextState.FontSize = 12
    Next
    
    ' Add data row
    Dim dataRow = table.Rows.Add()
    dataRow.Cells.Add("John Doe")
    dataRow.Cells.Add("30")
    dataRow.Cells.Add("New York")
    
    page.Paragraphs.Add(table)
    
    ' Save document
    document.Save("Report.pdf")
End Using

Imports iText.Kernel.Colors
Imports iText.Kernel.Pdf
Imports iText.Layout
Imports iText.Layout.Element
Imports iText.Layout.Properties

Public Sub CreateStyledTable(dest As String)
    Using writer = New PdfWriter(dest)
        Using pdf = New PdfDocument(writer)
            Dim document = New Document(pdf)

            ' Create a 2-column table
            Dim table As New Table(2, False)

            ' Header cells with gray background
            Dim cell11 As New Cell(1, 1)
            cell11.SetBackgroundColor(ColorConstants.GRAY).SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("State"))

            Dim cell12 As New Cell(1, 1)
            cell12.SetBackgroundColor(ColorConstants.GRAY).SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Capital"))

            ' Data cells
            Dim cell21 As New Cell(1, 1)
            cell21.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("New York"))

            Dim cell22 As New Cell(1, 1)
            cell22.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Albany"))

            Dim cell31 As New Cell(1, 1)
            cell31.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("New Jersey"))

            Dim cell32 As New Cell(1, 1)
            cell32.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Trenton"))

            ' Add all cells to table
            table.AddCell(cell11)
            table.AddCell(cell12)
            table.AddCell(cell21)
            table.AddCell(cell22)
            table.AddCell(cell31)
            table.AddCell(cell32)

            document.Add(table)
            document.Close()
        End Using
    End Using
End Sub

Imports iText.Kernel.Colors
Imports iText.Kernel.Pdf
Imports iText.Layout
Imports iText.Layout.Element
Imports iText.Layout.Properties

Public Sub CreateStyledTable(dest As String)
    Using writer = New PdfWriter(dest)
        Using pdf = New PdfDocument(writer)
            Dim document = New Document(pdf)

            ' Create a 2-column table
            Dim table As New Table(2, False)

            ' Header cells with gray background
            Dim cell11 As New Cell(1, 1)
            cell11.SetBackgroundColor(ColorConstants.GRAY).SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("State"))

            Dim cell12 As New Cell(1, 1)
            cell12.SetBackgroundColor(ColorConstants.GRAY).SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Capital"))

            ' Data cells
            Dim cell21 As New Cell(1, 1)
            cell21.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("New York"))

            Dim cell22 As New Cell(1, 1)
            cell22.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Albany"))

            Dim cell31 As New Cell(1, 1)
            cell31.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("New Jersey"))

            Dim cell32 As New Cell(1, 1)
            cell32.SetTextAlignment(TextAlignment.CENTER).Add(New Paragraph("Trenton"))

            ' Add all cells to table
            table.AddCell(cell11)
            table.AddCell(cell12)
            table.AddCell(cell21)
            table.AddCell(cell22)
            table.AddCell(cell31)
            table.AddCell(cell32)

            document.Add(table)
            document.Close()
        End Using
    End Using
End Sub

Imports PdfSharp.Pdf
Imports PdfSharp.Drawing

' Create document
Dim document As New PdfDocument()
Dim page As PdfPage = document.AddPage()
Dim gfx As XGraphics = XGraphics.FromPdfPage(page)

' Example of different font styles
Dim regularFont As New XFont("Arial", 12, XFontStyleEx.Regular)
Dim boldFont As New XFont("Arial", 12, XFontStyleEx.Bold)
Dim italicFont As New XFont("Arial", 12, XFontStyleEx.Italic)
Dim boldItalicFont As New XFont("Arial", 12, XFontStyleEx.BoldItalic)

' Position for the first text
Dim y As Double = 50
Dim x As Double = 50
Dim lineHeight As Double = 20

' Draw text in different styles - REQUIRES manual positioning
gfx.DrawString("Regular text in Arial", regularFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Bold text in Arial", boldFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Italic text in Arial", italicFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Bold and Italic text in Arial", boldItalicFont, XBrushes.Black, x, y)

' Save document
document.Save("FormattedText.pdf")

Imports PdfSharp.Pdf
Imports PdfSharp.Drawing

' Create document
Dim document As New PdfDocument()
Dim page As PdfPage = document.AddPage()
Dim gfx As XGraphics = XGraphics.FromPdfPage(page)

' Example of different font styles
Dim regularFont As New XFont("Arial", 12, XFontStyleEx.Regular)
Dim boldFont As New XFont("Arial", 12, XFontStyleEx.Bold)
Dim italicFont As New XFont("Arial", 12, XFontStyleEx.Italic)
Dim boldItalicFont As New XFont("Arial", 12, XFontStyleEx.BoldItalic)

' Position for the first text
Dim y As Double = 50
Dim x As Double = 50
Dim lineHeight As Double = 20

' Draw text in different styles - REQUIRES manual positioning
gfx.DrawString("Regular text in Arial", regularFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Bold text in Arial", boldFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Italic text in Arial", italicFont, XBrushes.Black, x, y)
y += lineHeight
gfx.DrawString("Bold and Italic text in Arial", boldItalicFont, XBrushes.Black, x, y)

' Save document
document.Save("FormattedText.pdf")

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports UglyToad.PdfPig
Imports UglyToad.PdfPig.Content

Public Module Program
    Public Sub Main()
        Using document As PdfDocument = PdfDocument.Open("C:\path\to\file.pdf")
            For Each page As Page In document.GetPages()
                ' Extract all letters
                Dim letters As IReadOnlyList(Of Letter) = page.Letters
                Dim text As String = String.Join(String.Empty, letters.Select(Function(x) x.Value))
                
                ' Extract words
                Dim words As IEnumerable(Of Word) = page.GetWords()
                
                ' Extract images
                Dim images As IEnumerable(Of IPdfImage) = page.GetImages()
            Next
        End Using
    End Sub
End Module

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports UglyToad.PdfPig
Imports UglyToad.PdfPig.Content

Public Module Program
    Public Sub Main()
        Using document As PdfDocument = PdfDocument.Open("C:\path\to\file.pdf")
            For Each page As Page In document.GetPages()
                ' Extract all letters
                Dim letters As IReadOnlyList(Of Letter) = page.Letters
                Dim text As String = String.Join(String.Empty, letters.Select(Function(x) x.Value))
                
                ' Extract words
                Dim words As IEnumerable(Of Word) = page.GetWords()
                
                ' Extract images
                Dim images As IEnumerable(Of IPdfImage) = page.GetImages()
            Next
        End Using
    End Sub
End Module