Partial Public Class MainPage
Inherits UserControl
Private pd As PrintDocument()
Public Sub New()
InitializeComponent()
pd = New PrintDocument()
End Sub
Private Sub PrintButton_Click(ByVal sender As Object, _
ByVal e As RoutedEventArgs)
pd.Print("M yMap")
End Sub
Private Sub pd_PrintPage(ByVal sender As Object, _
ByVal e As PrintPageEventArgs) Handles pd.PrintPage
e.PageVisual = mapImage
End Sub
End Class