Private Sub GetNamen(ByVal y As Integer)
        Dim vorname As String
        Dim nachname As String
 
        ury = y
        urx = 0
        urk_platz = race_grid.Rows(ury).Cells(urx).Value
        urx = 3
        vorname = race_grid.Rows(ury).Cells(urx).Value
        urx = 4
        nachname = race_grid.Rows(ury).Cells(urx).Value
        urx = 5
        urk_verein = race_grid.Rows(ury).Cells(urx).Value
        urk_name = vorname + " " + nachname
        tb_ampgreen.Text = urk_name
 
 
    End Sub

Private Sub urk_pd_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles urk_pd.PrintPage
 
 
 
        Dim font_name As New Font("Arial", 22)
        Dim font_verein As New Font("Arial", 17)
        Dim font_daten As New Font("Arial", 15)
        Dim font_platz As New Font("Arial", 20)
        Try
            Dim text_verein As String = "vom " + urk_verein
            Dim text_daten1 As String = "hat am " + tb_print_date.Text
            Dim text_daten2 As String = "im " + tb_print_title.Text
            Dim text_klasse As String = "in der " + _
              cb_print_class.SelectedItem.ToString
            Dim text_platz As String = "den " + urk_platz + ". Platz erreicht."
 
            ' Dim LineHeight As Single = font.GetHeight(e.Graphics)
 
            Dim x_name, y_name, x_verein, y_verein, x_daten1, y_daten1, _
              x_daten2, y_daten2, x_klasse, y_klasse, x_platz, y_platz As Single
 
            'Namen
            x_name = (e.PageBounds.Width - e.Graphics.MeasureString(urk_name, _
              font_name).Width) / 2
            y_name = 600
            'Verein
            x_verein = (e.PageBounds.Width - e.Graphics.MeasureString( _
              text_verein, font_verein).Width) / 2
            y_verein = 660
            'Datum bla
            x_daten1 = (e.PageBounds.Width - e.Graphics.MeasureString( _
              text_daten1, font_daten).Width) / 2
            y_daten1 = 700
            'Titel
            x_daten2 = (e.PageBounds.Width - e.Graphics.MeasureString( _
              text_daten2, font_daten).Width) / 2
            y_daten2 = 725
            'Klasse
            x_klasse = (e.PageBounds.Width - e.Graphics.MeasureString( _
              text_klasse, font_daten).Width) / 2
            y_klasse = 790
            'Platz
            x_platz = (e.PageBounds.Width - e.Graphics.MeasureString( _
              text_platz, font_platz).Width) / 2
            y_platz = 850
            'DRUCK
            e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            e.Graphics.TextRenderingHint = _
              Drawing.Text.TextRenderingHint.AntiAlias
 
            e.Graphics.DrawString(urk_name, font_name, Brushes.Black, x_name, _
              y_name)
            e.Graphics.DrawString(text_verein, font_verein, Brushes.Black, _
            x_verein, y_verein)
 
            e.Graphics.DrawString(text_daten1, font_daten, Brushes.Black, _
              x_daten1, y_daten1)
            e.Graphics.DrawString(text_daten2, font_daten, Brushes.Black, _
            x_daten2, y_daten2)
            e.Graphics.DrawString(text_klasse, font_daten, Brushes.Black, _
            x_klasse, y_klasse)
            e.Graphics.DrawString(text_platz, font_platz, Brushes.Black, _
            x_platz, y_platz)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Sub

Rechtschreibfehler sind mein Copyright(C)