Public Class Form1
 
    Private WithEvents docToPrint As New Printing.PrintDocument
 
 
    Private Sub docToPrint_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles docToPrint.PrintPage
 
        Dim text As String = "Ausgabetext"
        Dim printFont As New Font("Arial", 35, System.Drawing.FontStyle.Regular)
 
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, _
          10, 10)
        e.HasMorePages = False
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        Dim PrintPreviewControl2 = New PrintPreviewControl
        PrintPreviewControl2.Size = New Size(280, 400)
        Me.Controls.Add(PrintPreviewControl2)
 
        PrintPreviewControl2.Document = docToPrint
 
        Me.PrintPreviewControl1.Document = docToPrint
 
    End Sub
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)