Ralf

    Private Sub dlgPrintDocument_PrintPage(ByVal sender As Object, _
      ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
      Handles dlgPrintDocument.PrintPage
 
        Dim gr As Graphics = e.Graphics
        Dim oImage As Image
 
        ' Verweis auf das Bild festlegen
        If printCount = 0 Then
            oImage = picVorne1.Image
            printCount = printCount + 1
        ElseIf printCount = 1 Then
            oImage = picVorne2.Image
            printCount = printCount + 1
        ElseIf printCount = 2 Then
            oImage = picInlay.Image
            printCount = 0
        End If
 
        ' Rechteck für den Ausdruck festlegen
        ' Position + Originalgröße
        Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
        Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
 
        ' Bild drucken im angegebenen Rechteck drucken
        gr.DrawImage(oImage, r)
 
        gr.Dispose()
    End Sub

Ralf