' Druck starten
                    If sArtikel(0) <> "" Then
                        pdFaBild.DocumentName = "Bild zu Artikel " & sArtikel(0)
                        pdFaBild.Print()
                    End If

    Private Sub pdFaBild_EndPrint(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintEventArgs) Handles pdFaBild.EndPrint
        iCount = iCount + 1
        If sArtikel.Length > iCount Then
            pdFaBild.DocumentName = "Bild zu Artikel " & sArtikel(iCount)
            pdFaBild.Print()
        End If
    End Sub

    Private Sub pdFaBild_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles pdFaBild.PrintPage
 
        Dim gr As Graphics = e.Graphics
 
        ' Verweis auf das Bild festlegen
        Dim oImage As Image = Image.FromFile("\\server1\artikel\" & sArtikel( _
          iCount) & ".tif")
 
        ' Rechteck für den Ausdruck festlegen
        Dim p As New Point(e.PageBounds.Left - 5, e.PageBounds.Top - 5)
        Dim p2 As New Point(e.PageBounds.Right, e.PageBounds.Bottom)
        Dim r As New Rectangle(p.X, p.Y, p2.X, p2.Y)
 
        ' Bild drucken im angegebenen Rechteck drucken
        gr.DrawImage(oImage, r)
 
        gr.Dispose()
    End Sub