Dim gr1 As Graphics = e.Graphics
        Dim gr2 As Graphics = e.Graphics
 
        ' Verweis auf das Bild festlegen
        Dim Image1 As Image = Image.FromFile("Bild1")
        Dim Image2 As Image = Image.FromFile("Bild2")
 
        ' Rechteck für den Ausdruck festlegen
        ' Position + Originalgröße
        Dim p As New Point(0, 0)
        Dim r As New Rectangle(p.X, p.Y, (850 - p.X), (1200 - p.Y))
        Dim p2 As New Point(0, 1200)
        Dim r2 As New Rectangle(p2.X, p2.Y, (850 - p.X), (1200 - p.Y))
 
        ' Bild drucken im angegebenen Rechteck drucken
        gr1.DrawImage(Image1, r)
        gr2.DrawImage(Image2, r2)
 
        gr1.Dispose()
        e.HasMorePages = True
        gr2.Dispose()
        e.HasMorePages = False

Michael