Public Class Form1
 
    Private WithEvents MeinDokument As New Printing.PrintDocument
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        MeinDokument.Print()
    End Sub
 
    Private Sub MeinDokument_PrintPage(sender As Object, e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles MeinDokument.PrintPage
        Dim font8 As New Font("Arial", 8, FontStyle.Regular)
        e.Graphics.DrawString("Hallo Welt!", font8, Brushes.Black, 20, 20)
        e.HasMorePages = False
    End Sub
End Class