Dim ref As Reference
        For Each ref In References
            If ref.Name = "vbPrinter" Then
                References.Remove ref
            End If
        Next
    Application.References.AddFromFile CurrentProject.Path + _
      "\DLL\vbPrinter.DLL"

    Dim wahl
    wahl = MsgBox("Standarddrucker:" + Chr$(13) & Chr$(10) + _
      pClass.vbPrinter.DeviceName, 4, "Datenerfassung")
    If Not wahl = 6 Then GoTo druckabbruch
 
    With pClass.vbPrinter
    ' Test-Ausdruck
    .ScaleMode = 6   ' Maßeinheit "mm"
    .CurrentY = 10
    '.CurrentX = 20
    pClass.vbPrinter.ScaleLeft = -20
    pClass.vbPrinter.Print TextBox0.Text
 
    ' Wichtig: Wenn Druckauftrag beendet, dann...
    .EndDoc
    End With

Automatisierungsfehler
Das angegebene Modul wurde nicht gefunden.