Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
 
         e.HasMorePages = True
 
         e.Graphics.DrawImage(BildListe(BildIndex), 0, 0, e.PageBounds.Width, _
           e.PageBounds.Height)
 
        BildIndex += 1
 
        If BildIndex < BildListe.Count Then
 
            e.HasMorePages = True
 
        Else
 
            e.HasMorePages = False
 
            BildIndex = 0
 
        End If
 
    End Sub