Imports System.Printing
Imports System.Windows.Xps
 
Class Window1
 
	Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As _
  System.Windows.RoutedEventArgs)
		Dim wr As XpsDocumentWriter = PrintQueue.CreateXpsDocumentWriter("Drucken", _
Nothing)
		Dim visToXps = CType(wr.CreateVisualsCollator(), VisualsToXpsDocument)
		visToXps.Write(Me.grid1)
		visToXps.Write(Me.grid2)
		visToXps.EndBatchWrite()
	End Sub
End Class