Textbox eingabe in leere Zelle
28.12.2021 14:14:45
Mr.Right
ich möchte eine Textdatei die ich mir erstelle direkt ausgedruckt haben. Wie kann ich per VBA sagen, das die Textdatei die gerade offen ist, direkt gedruckt werden soll?
Das ganze muss ja vor dem Close #x stehen?! Ich muss ja noch sagen das er die Zeilen in dieser Textdatei drucken soll, nur wie mache ich das?
Bin Anfänger was VBA angeht, daher würde es nicht schaden mir das bisschen zu Erklären :)
Habe hier mal meinen Code eingefügt:
Function Txt_datei(x As Integer)
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Tabelle1")
'Speicherpfad der Txt-Datei
strPath = "..."
'Dateiname = ... .txt
strDateiname = sht.Range("G" & x) & ".txt"
'Code für ... wird in Txt-Datei geschrieben
Open strPath & strDateiname For Output As #x
Print #x, "^XA" _
& vbCrLf & "^CFP,12" _
& vbCrLf & "^FO65,20^FD .... ^FS" _
& vbCrLf & "^FO85,40^FD " & sht.Range("G" & x) & " ^FS" _
& vbCrLf & "^FO7^BQN,2,2^FDQA," & "ANR " & sht.Range("C" & x) & " D " & sht.Range("D" & x) & " SN " & sht.Range("G" & x) & " ^FS" _
& vbCrLf & "^XZ"
'Drucker auswählen
Application.ActivePrinter = "ZDesigner GK420t ZPL"
'Druckbefehl
PrintOut
Close #x
End Function
Anzeige