Predmet:Re: Fiskalna kasa

---

Hvala zxz, hvala Miro.
formiram dobro fajl koji treba prebaciti na stampac. Kad ga saljem nema odgovora nikakvog od njega. Problem je u otvaranju, ispisu I zatvaranju comporta. Sad radim na tom, ali... Evo kod za formiranje fajla za slanje na stampac (nefiskalni). ako imate kakvo resenje mnogo bi mi znacilo a ja ako uspijem dacu module ovdje.

Sub N_zapis_za_stampac(STATUS)
On Error GoTo Err_zapis_za_stampac

Dim rst As Recordset
Dim dbs As Database
Set dbs = CurrentDb

Dim red As String

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.CreateTextFile("C:\qprint\DRAGO\racun" & ".TXT", True)
red = "F0"
ObjFile.WriteLine red

red = "F1" & ";" & "1"
ObjFile.WriteLine red
red = "F1" & ";" & "1"

ObjFile.WriteLine red
red = "F1" & ";" & "3" & ";" & " Drago pise na stampac"
ObjFile.WriteLine red

red = "F1" & ";" & "2"

ObjFile.WriteLine red

Exit_zapis_za_stampac:
Exit Sub

Err_zapis_za_stampac:

MsgBox Err.Description
Resume Next

End Sub