Predmet:Re: Fiskalna kasa

---

Hvala ZXZ. Probao sam mnogo toga ali ne ide iz VBA. Iz onog sto sto znam slanje podataka na serijski port je isto kao u neki fajl; ali ni to ne ide. Moracu izgleda sve preprogramirati na VB. Evo i prijer koda koji nazalost ne radi:

Sub zapis_za_stampac(STATUS)
On Error GoTo Err_zapis_za_stampac

Dim red As String


Open "COM3:57600,n,8,1" For Output As #2 'OPEN PORT
red = "F0"
Print #2, red
red = "F1" & ";" & "1"
Print #2, red
red = "F1" & ";" & "1"
Print #2, red
red = "F1" & ";" & "3" & ";" & " ISPIS NA STAMPAC"
Print #2, red
red = "F1" & ";" & "2"
Print #2, red
Close #2 'CLOSE PORT
Exit_zapis_za_stampac:
Exit Sub

Err_zapis_za_stampac:

MsgBox Err.Description
Resume Next

End Sub