FileOpen(1, Application.StartupPath & "\Druck.txt", OpenMode.Output)
        Print(1, Chr(&H10)) '+ "@") 
        Print(1, Chr(&H1B) + Chr(&H52) + Chr(&H6)) 
        Print(1, Chr(&H1B) + Chr(&H61) + Chr(1)) 
        druckerport = TextBox2.Text
 
        att = TextBox1.Text 'HIER GEBE ICH DIE STEUERSEQUENZ manuell EIN!!!
 
        PrintLine(1, att) 'HIER SOLL SIE IN DIE TEXTDATEI GESCHRIEBEN!!
 
        PrintLine(1, Chr(&H1D) + "V" + Chr(66) + Chr(0))         Print(1, Chr( _
          &H1B) + Chr(&H76))
        FileClose(1)
        Shell("print /D:" & druckerport & " """ & Application.StartupPath & _
          """" & "\Druck.txt", AppWinStyle.Hide)