Private Sub Drucken_Click()
 
        Dim AKDrucker As String
 
        ' zunächst aktuellen Drucker merken
        AKDrucker = Printer.DeviceName
 
        ' dann neuen Drucker setzen (Function SetPrinter vorhanden)
        SetPrinter("Neuer Drucker")
 
        ' als nächstes die Druckpositionen und der Ausdruck
 
        ' Druckpositionen
        Printer.CurrentX = 2000
        Printer.CurrentY = 2000
 
        ' Ausdruck
        Printer.Print "Das ist der ausgedruckte Text" ' oder z.B. Text1.Text
 
        ' Ende des Ausdrucks
        Printer.EndDoc
 
 
        ' alten Drucker wieder zurücksetzen
        SetPrinter(AKDrucker)
 
 
    End Sub

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