Ce code ouvre le canal nommé (named pipe) de Ethernet POS en tant que fichier texte, et écrit un ticket de confirmation de commande. Des commandes Epson® ESC/POS sont utilisées pour notamment réinitialiser l'imprimante et couper le papier.
Pour tester ce code, créez un fichier ayant l'extension .vbs, copiez ce code dans le fichier créé, et exécutez-le via un double-clic.
Dim oFSO, oFile ' Create file object and open Ethernet POS named pipe Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.CreateTextFile("\\.\pipe\ethpos_printer_0", True) ' Initialize printer oFile.Write Chr(27) & "@" ' Align center oFile.Write Chr(27) & "a" & Chr(1) ' Write header as straight text oFile.Write "Active+ Software" & vbCrLf oFile.Write "https://www.activeplus.com" & vbCrLf & vbCrLf ' Align left oFile.Write Chr(27) & "a" & Chr(0) ' Write order details as straight text oFile.Write "Order details:" & vbCrLf & vbCrLf oFile.Write "2 x Ethernet POS (1 machine) $98.00" & vbCrLf oFile.Write "1 x Ethernet POS (5 machines) $239.00" & vbCrLf oFile.Write "-----------------------------------------" & vbCrLf oFile.Write "Total: $337.00" & vbCrLf ' Cut paper oFile.Write Chr(29) & "V" & Chr(65) & Chr(3) ' Cleanup oFile.Close Set oFile = Nothing Set oFSO = Nothing
Télécharger ethpos.vbs
