'--------------------------------------------------------------
    Dim imgeLocation As Point = New Point(50, 180)
    Dim Belegstempel As Point = New Point(50, 370)
    Dim BelegSize As Size = New Size(150, 22)
 
    Dim x As Integer, y As Integer
    Dim R As Rectangle
    Dim Stempel As String
    '--------------------------------------------------------------
   Try
 
    For i As Integer = 0 To DS.tabelle.Rows.Count - 1
    Dim row As DataRow = DS.tabelle.Rows(i)
    Dim bildpfad As String = row("Pfad").ToString
    Dim Stempeldate As Date = row("Stempeldatum").ToString
                Stempel = Format(Stampeldate, "ddd-dd.MM.yyyy HH:mm")
    'Bildpfad prüfen
    If IsBildPfad(bildpfad) = True Then
    Dim img As Image = Resize_Image(New Bitmap(Image.FromFile(bildpfad)))
                    e.Graphics.DrawImage(img, imgeLocation)
    'Berechnen der Position der nächsten img
                    imgeLocation.X += img.Width + 2
    'Berechnen der Position des nächsten Belegstempel
                    Belegstempel.X += img.Width
 
                   R = New Rectangle(Belegstempel.X + (x - 1) * _
                     BelegSize.Width, _
                    Belegstempel.Y + (y - 2) * BelegSize.Height, _
                   BelegSize.Width, BelegSize.Height)
 
                    e.Graphics.FillRectangle(New SolidBrush(HeadColor), R)   _
                      'Belegstempel Farbe
                    e.Graphics.DrawRectangle(LightGrayPen, R)                _
                    'Rahmen Belegstempel
                    e.Graphics.DrawString(Stempel, f8, Brushes.White, R, sf) _
                    'Text Belegstempel 
    'Abschlusslinie drucken
                    e.Graphics.DrawLine(p1, 50, Belegstempel.Y + 10, 718, _
                      Belegstempel.Y + 10)
                Else
 
                 '?
                End If
 
            Next i
 
        Catch ex As Exception
 
        End Try
 
        e.Graphics.Dispose()
        p1.Dispose()