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) = "<dataroot" Then
        '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
        '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
        Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _
        & " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"
        End If
        If Left(Temp, 11) = "</dataroot>" Then
        Temp = "</Zahtjev>"
        End If
    Print #2, Temp
    Wend
Close #1
Close #2
End Function