Public Class frmPrintPictures
 
    Dim WithEvents pd As New Printing.PrintDocument
    Dim picindex As Integer
    Dim piclist As New List(Of Bitmap)
 
    Private Sub frmPrintPictures_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
 
        Dim picfolder As String = _
        My.Computer.FileSystem.SpecialDirectories.MyPictures
 
        For Each picfile As String In IO.Directory.GetFiles(picfolder, "*.jpg")
            'Bild laden
            Dim bmpin As New Bitmap(picfile)
            'Thumbnail Size festlegen
            Dim width As Integer = 100
            Dim height As Integer = CInt(bmpin.Height * 100 / bmpin.Width)
            If height > 100 Then
                width = CInt(bmpin.Width * 100 / bmpin.Height)
                height = 100
            End If
 
            'Thumbnail erstellen und listen
            Dim bmp As New Bitmap(width, height)
            Using g As Graphics = Graphics.FromImage(bmp)
                g.DrawImage(bmpin, 0, 0, bmp.Width, bmp.Height)
                piclist.Add(bmp)
            End Using
        Next picfile
 
        'Drucken
        pd.Print()
    End Sub
 
    Private Sub pp_PrintPage(sender As Object, _
        e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
 
        Dim ph As Integer = 0 'Position in y-Richtung
 
        Do While picindex < piclist.Count - 1 AndAlso _
            ph + piclist(picindex + 1).Height <= e.PageBounds.Height
            picindex += 1
            e.Graphics.DrawImage(piclist(picindex), 10, ph)
            ph += piclist(picindex).Height + 10
        Loop
 
        e.HasMorePages = picindex < piclist.Count - 1
    End Sub
End Class