Sub Export_InvoiceReport()
Application.ExportXML ObjectType:=acExportReport, _
DataSource:="Invoice", _
DataTarget:="C:\Invoice.xml", _
PresentationTarget:="C:\Invoice.xsl", _
ImageTarget:="C:\Learn_XML", _
WhereCondition:="OrderID=11075"
End Sub