Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PrintPreviewDialog1.Document = New PrintCls()
        PrintPreviewDialog1.ShowDialog()
    End Sub
End Class
 
Public Class PrintCls
    Inherits Printing.PrintDocument
 
    Protected Overrides Sub OnPrintPage(ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        With e.Graphics
            .DrawString("Hallo", New Font("Arial", 15), New SolidBrush( _
              Color.Black), 100, 100)
        End With
    End Sub
End Class