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
        Dim PS As Printing.PrinterSettings = New Printing.PrinterSettings()
        Dim PD As PrintDoc = New PrintDoc()
 
        PrintDialog1.PrinterSettings = PS
        PrintDialog1.ShowDialog()
 
        PD.PrinterSettings = PS
        PrintPreviewDialog1.Document = PD
        PrintPreviewDialog1.ShowDialog()
    End Sub
End Class
 
Public Class PrintDoc
    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