Function Zapisxml()
Dim Tabele(1 To 2) As String
Dim Putanja As String
Dim XmlFile As String
Dim Temp As String
Tabele(1) = "Zahtjev" ?osnovna tabela
Tabele(2) = "Parametar" ' Pridodata tabela
Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea
XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
Close #1
Close #2
Open Putanja & "sys.dll" For Input As 1
Open Putanja & XmlFile For Output As 2
While Not EOF(1)
Line Input #1, Temp
If Left(Temp, 9) = "
'
Temp = ""
End If
If Left(Temp, 11) = "" Then
Temp = ""
End If
If Left(Temp, 11)="" Then
Print #2, ""
end if
Print #2, Temp
If Left(Temp, 12)="" Then
Print #2, ""
end if
Wend
Close #1
Close #2
End Function