How can I print a XML file

[Hack]

What would you need to import it into a richtextbox first? Just send it straight to the printer like any other text file.

Option Explicit
 
Private Function PrintTextFile(sTextFile As String) As String
If Dir(sTextFile) <> vbNullString Then
    Open sTextFile For Binary As #1
    PrintTextFile = Input(LOF(1), 1)
    Close #1
End If
End Function
 
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Printer.Print PrintTextFile("d:\closedhow.xml")
Printer.EndDoc
Screen.MousePointer = vbDefault
End Sub