Public Class MeinPrintDocument
    Inherits Printing.PrintDocument
 
    Protected Overrides Sub OnPrintPage(ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Dim y As Integer = e.MarginBounds.Top
        Dim font As New Font("Arial", 20)
 
        e.Graphics.DrawImage(Image.FromFile("...\smile.bmp"), New Point(600, _
          30))
 
            If y + 100 > e.MarginBounds.Bottom Then
                e.HasMorePages = True
                Return
            End If
            Dim x As Integer = e.MarginBounds.Left
            e.Graphics.DrawString("TEXTBOX Inahlt1"), font, Brushes.Black, x, y)
            x += 400
            e.Graphics.DrawString("TEXTBOX Inahlt2"), font, Brushes.Black, x, y)
            y += 150
            '.... weitere Textboxinhalte
 
    End Sub
 
End Class