Dim adTables As AdditionalData

 Set adTables = Application.CreateAdditionalData
 adTables.Add ("Parametar")

Application.ExportXML _
 ObjectType:=acExportTable, _
 DataSource:="Zahtjev", _
 DataTarget:="c:\POS\XML\stampatinefiskalnidokument.xml", _
 AdditionalData:=adTables


 Application.TransformXML DataSource:="c:\POS\XML\stampatinefiskalnidokument.xml", _
 TransformSource:="c:\POS\XML\stampatinefiskalnidokument.xsd", _
 OutputTarget:="C:\Tring\xml\stampatinefiskalnidokument.xml"