Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.Windows.Media
 
Public Class frmGrid2PDF
 
    Dim datagridview1 As New DataGridView With _
         {.Parent = Me, .Top = 50, .Width = 400, .Height = 400}
    Dim WithEvents wsfk As New Button With _
         {.Parent = Me, .Text = "Export"}
 
    Private Sub frmGrid2PDF_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        CreateTestData()
    End Sub
 
    Private Sub CreateTestData()
 
        With datagridview1
            .AllowUserToAddRows = False
            With .Columns
                .Add("StatusIntern", "StatusIntern")
                .Add("Zustand", "Zustand")
                .Add("Was_auch_immer", "Was_auch_immer")
                .Add("unsichtbar", "unsichtbar")
                .Add("Rest", "Rest")
            End With
            .Columns("unsichtbar").Visible = False
            With .Rows
                .Add("neu", "Z1", "xxx", "---", 1)
                .Add("kaputt", "Z2", "yyy", "___", 2)
                .Add("gebraucht", Nothing, "zzz", "+++", 3)
                .Add("neuer", "Z4", "aaa", "***", 4)
            End With
        End With
 
    End Sub
 
    Private Sub WSFK_Click(sender As Object, e As EventArgs) Handles WSFK.Click
 
        'Dein Code mit der wie angegeben verschobenen Exportzeile
        'und der angepaßten RowFilter-Routine
    End Sub
 
 End Class