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