' Drucker-Kommandos bzw. Direkt-Druck
' - Datei, Druckeranschluss bzw. Printer-Queue als Ziel ...
Public Function prn_PrintDirect(ByRef prAlias As String, ByRef strData As _
  String) As Boolean
    Dim prConn  As Integer
    Dim prOpen  As Boolean
    '
    On Error GoTo FehlerPrn
    Err.Clear
    ' Drucker als Datei öffnen ...
    prConn = FreeFile(0)
    Open prAlias For Output As #prConn
     If Err.Number = 0 Then prOpen = True
    ' Text/Steuerzeichen ausgeben
    Print #prConn, strData
    ' Drucker/Datei wieder schliessen
    Close #prConn
    prOpen = False
    '
    prn_PrintDirect = True
    On Error GoTo 0
    Exit Function
FehlerPrn:
    debug.print Err.Number & " " & Err.Description
    Err.Clear
    If prOpen = True Then Close #prConn
    prn_PrintDirect = False
End Function

^
wurlitzer