Private Sub drucken2(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Dim ausgabe As String = ""
        Dim Font As New Font("Arial", 35, FontStyle.Bold)
        Dim font2 As New Font("Arial", 12, FontStyle.Regular)
        Dim LineHeight As Single = Font.GetHeight(e.Graphics)
        Dim Ueberschrift As String = "Übersicht"
        Dim x As Single = (e.PageBounds.Width - e.Graphics.MeasureString( _
          Ueberschrift, Font).Width) / 2
 
 
        e.Graphics.DrawString(Ueberschrift, Font, Brushes.Black, x, 20)
 
 
        dg1.Sort(datum, System.ComponentModel.ListSortDirection.Ascending)
        If dg1.Rows.Count > 0 Then
            For i1 As Integer = 0 To dg1.Rows.Count - 1
                For i2 As Integer = 0 To dg1.Columns.Count - 1
                    If dg1.Item(i2, i1).Value <> Nothing Then
                        If i2 = 0 Then ausgabe = "Auf "
                        If i2 = 1 Then ausgabe = ausgabe & "am "
                        If i2 = 2 Then ausgabe = ausgabe & "von "
                        If i2 = 3 Then ausgabe = ausgabe & "Uhr bis "
 
                        ausgabe = ausgabe & dg1.Item(i2, i1).Value & " "
                        If i2 = 3 Then ausgabe = ausgabe & "Uhr"
                    End If
                Next
 
                e.Graphics.DrawString(ausgabe, New Font("Arial", 12, _
                  FontStyle.Regular), Brushes.Black, 20, _
                  e.Graphics.MeasureString(ausgabe, font2).Height * 2 * i1 + _
                  150)
                e.HasMorePages = True
                ausgabe = ""
            Next
 
        End If
        e.HasMorePages = False
    End Sub