Dim rs2
Dim db As Database
Set Tekst = New Stream ''Ovde je to što pitaš
Open "C:\Prodaja\" & Me.BROIZD & " Racun.xml" For Output As 2
'Tekst.Open
'Tekst.Position = 0
'Tekst.Charset = "IBM852"
Print #2, "IBM852"
Print #2, "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
Print #2, "<TremolFpServer Command=""Receipt"" " & "Operator" & "=" & """" & Me.RedniBroj & ";" & Me.SIFDJEL & """" & " " & ">" & vbCrLf
 
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)
    Do While Not rs2.EOF
 
 Print #2, "<" & "Item Description" & "=" & """" & rs2!TvojNaziv & """" & " " & "Quantity" & "=" & """" & rs2!TvojaKolicina & """" & " " & "Price" & "=" & """" & rs2!TvojaCijena & """" & " " & "VatInfo" & "=" & """" & rs2!TvojPorez(PDV = 2, AkoNijePDV = 1) & """" & " " & "Department" & "=" & """" & rs2!TvojeOdjeljenje & """" & " " & "UnitName" & "=" & """" & rs2!TvojaJedinicaMjere & """" & " " & "Discount" & "=" & """" & rs2!TvojPopust & """" & " " & "/>" & vbCrLf
 
rs2.MoveNext
 
    Loop
   
      rs2.Close
      Print #2, "<Payment Type=""Virman"" Amount=""0""/>" & vbCrLf
      Print #2, "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf
      Print #2, "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
      
      Print #2, "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf
   
      Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
      
    
    Set db = Nothing
'Tekst.SaveToFile "C:\Prodaja\" & Me.BROIZD & " Racun.xml", adSaveCreateOverWrite
 'Tekst.Close
 Close #2