Option Explicit

Private Sub Document_Open()
    'ReadXML
End Sub
Sub ReadXMLAndProcess()

    'reads an xml type file for different parameters; file must have the same name and path as the calling report
    Dim myRs As Object
    Dim myRpt As report
    Dim myDoc As Document
    Dim myErr As String
    Dim dlg As Object
    Dim exFileName As String
    Dim exFileName2 As String
    Dim xmlFileName As String
    Set myDoc = ActiveDocument
    Set myRpt = ActiveReport
    Set myRs = CreateObject("adodb.recordset")
    
    exFileName = "write dir"
    exFileName2 = "XML_dir"
    myErr = "BO - Reporting error: "
    
    'Set dlg = CreateObject("MSComDlg.CommonDialog")
    
    Call AssignDefaultValue

              
    'the filename for the xml config map
    xmlFileName = exFileName2 & "\" & Me.Name & ".xml"
    On Error Resume Next
    myRs.Open xmlFileName, "Provider=MSPersist"
    If Err.Number = -2147467259 Then
    
        Call MsgBox(myErr & "Please select a proper XML input file" & vbCrLf _
            & " - " & Err.Description)
    
    Else
        Err.Clear
        On Error Resume Next
        With myRs
            Do While Not .EOF
                Err.Clear
                If Len(myRs.fields("field1")) > 0 And Len(myRs.fields("field2")) > 0 Then
                    If Err.Number = 3265 Then
                        Call MsgBox(myErr & "Please select a proper XML input file" & vbCrLf _
                        & " - " & Err.Description)
                        Exit Do
                    End If
                End If
                'declare var here
                Variables.Item("field1").Value = .fields("field2")
                myDoc.Refresh
                myRpt.ExportAsPDF (exFileName & .fields("field1") & ".PDF")
                Debug.Print .fields("field1") & " - " & .fields("field2")
                .MoveNext
                If .EOF Then
                    Exit Do
                End If
            Loop
            myRs.Close
        End With
    End If
    
    Set myRs = Nothing
    Set dlg = Nothing
        


End Sub






Sub AssignDefaultValue()
     
Dim startdate As Date

startdate = DateAdd("m", -13, Date)
    
    On Error Resume Next
    
    'reset values if ok
             
        Variables.Item("BEGIN DATE").Value = Format(startdate, "MM-01-YYYY 0:00")
        Variables.Item("END DATE").Value = Format(Date, "MM-01-YYYY 0:00")
  
   
End Sub


XML-file:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
	xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
	xmlns:rs='urn:schemas-microsoft-com:rowset'
	xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
	<s:ElementType name='row' content='eltOnly' rs:updatable='true'>
		<s:AttributeType name='Field1' rs:number='2' rs:nullable='true' rs:maydefer='true' rs:write='true' rs:basetable='is month report'
			 rs:basecolumn='Field1'>
			<s:datatype dt:type='string' dt:maxLength='255'/>
		</s:AttributeType>
		<s:AttributeType name='Field2' rs:number='1' rs:nullable='true' rs:maydefer='true' rs:write='true' rs:basetable='is month report'
			 rs:basecolumn='Field2'>
			<s:datatype dt:type='string' dt:maxLength='255'/>
		</s:AttributeType>
		<s:extends type='rs:rowbase'/>
	</s:ElementType>
</s:Schema>
<rs:data>
	<z:row Field1='Value11' Field2='Value21'/>
	<z:row Field1='Value12' Field2='value22'/>
	<z:row Field1='Value13' Field2='value23'/>
	<z:row Field1='Value14' Field2='value24'/>
	<z:row Field1='Value15' Field2='value25'/>
	</rs:data>
</xml>