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