Liebe VBA Fans,
habe ein kleines Problem, vielleicht kann ja jemand helfen. Habe ein Kassenprogramm geschrieben und steuere ein serielles Kundendisplay an (Jarltech 8003).
Alles läuft super, aber wie stelle ich Umlaute und "ß" dar?
Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer 'Comm öffnen
Declare Sub CLOSECOM Lib "RSAPI.DLL" ()
Declare Sub SENDSTRING Lib "RSAPI.DLL" (ByVal S As String)
Declare Sub READSTRING Lib "RSAPI.DLL" (ByVal S As String)
Sub WriteValues()
OPENCOM "COM3:9600,N,8,1"
SENDSTRING Chr$(27) & Chr$(58)
SENDSTRING display1
SENDSTRING Chr$(10) 'Zeilenwechsel
SENDSTRING Chr$(13) 'CR
SENDSTRING display2
CLOSECOM
End Sub
Hat jemand eine Idee ?
Grüße
Ray
|