Once they are exported to .xml files is it possible to use a modified macro to print them all at once double sided?
Something based on this:
Public Sub printfiles()
With Application.FileSearch
.LookIn = "D:\somewhere\doc files\" ' where to search
.SearchSubFolders = True ' search the subfolders
.FileName = "*.xml" ' file pattern to match
' if more than one match, execute the following code
If .Execute() > 0 Then
' to display how many files this macro will access,
' uncomment the next line of code
' MsgBox "Found " & .FoundFiles.Count & " file(s)."
' for each file you find, run this loop
For i = 1 To .FoundFiles.Count
' open the file based on its index position
Documents.Open FileName:=.FoundFiles(i)
' print file
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
' save and close the current document
ActiveDocument.Close wdSaveChanges
Next i
Else
' if the system cannot find any files
' with the .xml extension
MsgBox "No files found."
End If
End With
End Sub
