Client Side Printing

This sample demonstrates local printing.

XAML

<UserControl x:Class="ArcGISWPFSDK.ClientSidePrint"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
             xmlns:esri="http://schemas.esri.com/arcgis/client/2009"
             xmlns:i="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
             xmlns:ie="clr-namespace:Microsoft.Expression.Interactivity.Core;assembly=Microsoft.Expression.Interactions"
             xmlns:local="clr-namespace:ArcGISWPFSDK"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
             d:DesignHeight="480" d:DesignWidth="780"
             mc:Ignorable="d">
    <Grid x:Name="LayoutRoot">
        <Grid.Resources>
            <ResourceDictionary>
                <!--  Dictionary with all available Print Templates  -->
                <ResourceDictionary x:Key="PrintTemplates">
                    <!--  Basic style with the map only  -->
                    <ControlTemplate x:Key="Map Only">
                        <esri:Map x:Name="PrintMap" Background="White"
                                  IsLogoVisible="False" local:CloneMap.Map="{Binding Map}"
                                 />
                    </ControlTemplate>

                    <!--  Print map with header and footer  -->
                    <ControlTemplate x:Key="With Header And Footer">
                        <Grid Background="White">
                            <Grid Margin="10">
                                <Grid.RowDefinitions>
                                    <RowDefinition Height="Auto" />
                                    <RowDefinition />
                                    <RowDefinition Height="Auto" />
                                </Grid.RowDefinitions>

                                <!--  Title  -->
                                <TextBlock HorizontalAlignment="Center" FontSize="14"
                                           Text="{Binding Title}" TextWrapping="Wrap" />

                                <!--  Map with scale line and attribution  -->
                                <Border Grid.Row="1" Background="Transparent"
                                        BorderBrush="Black" BorderThickness="1">
                                    <Grid>
                                        <esri:Map x:Name="PrintMap" IsLogoVisible="False" local:CloneMap.Map="{Binding Map}" />
                                        <esri:ScaleLine Margin="10" HorizontalAlignment="Right"
                                                        VerticalAlignment="Bottom"
                                                        Map="{Binding ElementName=PrintMap}" />
                                        <esri:Attribution Margin="10,10,300,10" HorizontalAlignment="Left"
                                                          VerticalAlignment="Bottom"
                                                          Layers="{Binding Layers, ElementName=PrintMap}" />
                                    </Grid>
                                </Border>

                                <!--  Date as Footer  -->
                                <TextBlock Grid.Row="2" HorizontalAlignment="Left"
                                           VerticalAlignment="Center"
                                           Text="{Binding Now, StringFormat='Printed {0:D} '}" />
                            </Grid>
                        </Grid>
                    </ControlTemplate>

                    <!--  Standard style with Title, Map, ScaleLine and Attribution  -->
                    <ControlTemplate x:Key="Standard">
                        <Border Background="White">
                            <Grid Margin="10">
                                <Grid.RowDefinitions>
                                    <RowDefinition Height="Auto" />
                                    <RowDefinition Height="*" />
                                    <RowDefinition Height="Auto" />
                                </Grid.RowDefinitions>

                                <!--  Header  -->
                                <TextBlock Margin="10" HorizontalAlignment="Center"
                                           FontSize="22" Text="{Binding Title}"
                                           TextWrapping="Wrap" />

                                <!--  Map  -->
                                <Border Grid.Row="1" BorderBrush="Black"
                                        BorderThickness="1" CornerRadius="0">
                                    <esri:Map x:Name="PrintMap" local:CloneMap.Map="{Binding Map}" />
                                </Border>

                                <!--  Footer  -->
                                <Grid Grid.Row="2" Margin="0,10">
                                    <Grid.RowDefinitions>
                                        <RowDefinition Height="Auto" />
                                        <RowDefinition Height="Auto" />
                                        <RowDefinition Height="Auto" />
                                    </Grid.RowDefinitions>
                                    <Grid.ColumnDefinitions>
                                        <ColumnDefinition Width="2*" />
                                        <ColumnDefinition Width="3*" />
                                    </Grid.ColumnDefinitions>

                                    <TextBlock HorizontalAlignment="Left" VerticalAlignment="Center"
                                               FontSize="16"
                                               Text="{Binding Now, StringFormat='Printed {0:d} '}" />
                                    <TextBlock Grid.Column="1" HorizontalAlignment="Left"
                                               VerticalAlignment="Center" FontSize="14"
                                               Text="{Binding Scale, ElementName=PrintMap, StringFormat='1 : {0:F0} '}" />

                                    <!--  Scale Bar  -->
                                    <esri:ScaleLine Grid.Row="1" Grid.Column="1"
                                                    Map="{Binding ElementName=PrintMap}" TargetWidth="300" />

                                    <!--  Attribution  -->
                                    <esri:Attribution Grid.Row="2" Grid.Column="1" Layers="{Binding Layers, ElementName=PrintMap}" />
                                </Grid>
                            </Grid>
                        </Border>
                    </ControlTemplate>

                    <!--  Print with Legend  -->
                    <ControlTemplate x:Key="With Legend">
                        <Border Background="White">
                            <Grid Margin="10">
                                <Grid.RowDefinitions>
                                    <RowDefinition Height="Auto" />
                                    <RowDefinition Height="*" />
                                </Grid.RowDefinitions>

                                <!--  Header  -->
                                <TextBlock Margin="0,10" HorizontalAlignment="Center"
                                           FontSize="24" Text="{Binding Title}"
                                           TextWrapping="Wrap" />

                                <!--  Map  -->
                                <Border Grid.Row="1" BorderBrush="Black" BorderThickness="1">
                                    <Grid>
                                        <esri:Map x:Name="PrintMap" local:CloneMap.Map="{Binding Map}" />

                                        <esri:Legend HorizontalAlignment="Left" VerticalAlignment="Bottom" Map="{Binding ElementName=PrintMap}">
                                            <esri:Legend.Template>
                                                <!--  Change the legend style to avoid treeview 'collapse' button  -->
                                                <ControlTemplate TargetType="{x:Type esri:Legend}">
                                                    <ItemsControl Background="White" BorderBrush="Black"
                                                                  BorderThickness="1"
                                                                  ItemsSource="{TemplateBinding LayerItemsSource}">
                                                        <ItemsControl.ItemTemplate>
                                                            <DataTemplate>
                                                                <StackPanel Orientation="Vertical">
                                                                    <!--  Layer Item  -->
                                                                    <TextBlock FontWeight="SemiBold" Text="{Binding Label}" />

                                                                    <!--  Legend Items  -->
                                                                    <ItemsControl ItemsSource="{Binding LegendItems}">
                                                                        <ItemsControl.ItemTemplate>
                                                                            <DataTemplate>
                                                                                <StackPanel Orientation="Horizontal">
                                                                                    <Image MinWidth="20" HorizontalAlignment="Center"
                                                                                           VerticalAlignment="Center" Source="{Binding ImageSource}"
                                                                                           Stretch="None" />
                                                                                    <TextBlock Margin="5,0,0,0" VerticalAlignment="Center" Text="{Binding Label}" />
                                                                                </StackPanel>
                                                                            </DataTemplate>
                                                                        </ItemsControl.ItemTemplate>
                                                                    </ItemsControl>
                                                                </StackPanel>
                                                            </DataTemplate>
                                                        </ItemsControl.ItemTemplate>
                                                    </ItemsControl>
                                                </ControlTemplate>
                                            </esri:Legend.Template>
                                        </esri:Legend>
                                    </Grid>
                                </Border>
                            </Grid>
                        </Border>
                    </ControlTemplate>
                </ResourceDictionary>

                <!--  Collection of preview sizes (Note: real size will be set during the print process depending on printer properties)  -->
                <local:PreviewSizes x:Key="MyPreviewSizes">
                    <local:PreviewSize Width="780" Height="1100" Id="A4 Portrait" />
                    <local:PreviewSize Width="1100" Height="780" Id="A4 Landscape" />
                    <local:PreviewSize Width="1100" Height="1560" Id="A3 Portrait" />
                    <local:PreviewSize Width="1560" Height="1100" Id="A3 Landscape" />
                    <local:PreviewSize Width="2200" Height="1560" Id="A2 Landscape" />
                    <local:PreviewSize Width="3120" Height="2200" Id="A1 Landscape" />
                    <local:PreviewSize Width="925" Height="1343" Id="B4 Portrait" />
                    <local:PreviewSize Width="1343" Height="925" Id="B4 Landscape" />
                    <local:PreviewSize Width="687" Height="971" Id="B5 Portrait" />
                    <local:PreviewSize Width="971" Height="687" Id="B5 Landscape" />
                    <local:PreviewSize Width="760" Height="1000" Id="Letter Portrait" />
                    <local:PreviewSize Width="976" Height="760" Id="Letter Landscape" />
                    <local:PreviewSize Width="665" Height="977" Id="Executive" />
                    <local:PreviewSize Width="689" Height="415" Id="Envelope" />
                </local:PreviewSizes>

                <BooleanToVisibilityConverter x:Key="BooleanToVisibilityConverter" />
            </ResourceDictionary>
        </Grid.Resources>

        <!--  Map Control  -->
        <esri:Map x:Name="MyMap" UseAcceleratedDisplay="True" WrapAround="True" Extent="-15000000,2000000,-7000000,8000000" Background="#FFE3E3E3" MinimumResolution="2445.98490512499" >
            <esri:ArcGISLocalTiledLayer ID="BaseMap" Path="..\\Data\\TPKs\\Topographic.tpk"/>
            <esri:ArcGISLocalDynamicMapServiceLayer Path="..\\Data\\MPKS\\USCitiesStates.mpk"/>
        </esri:Map>

        <Button Margin="20" HorizontalAlignment="Left"
                VerticalAlignment="Top" Click="ActivatePrintPreview"
                Content="Print" FontSize="18"
                Padding="10"
                ToolTipService.ToolTip="Show Print Preview Dialog" />

        <!--  Print Preview Dialog (overlaps the map in this sample)  -->
        <Grid x:Name="PrintPreview" Background="LightGray" Visibility="Collapsed">
            <Grid.ColumnDefinitions>
                <!--  Print parameters  -->
                <ColumnDefinition Width="Auto" />
                <!--  Separator  -->
                <ColumnDefinition Width="Auto" />
                <!--  MapPrinter preview  -->
                <ColumnDefinition />
            </Grid.ColumnDefinitions>

            <!--  Print parameters  -->
            <Grid Grid.Column="0" MaxWidth="350" Margin="3">
                <Grid.RowDefinitions>
                    <RowDefinition Height="Auto" />
                    <RowDefinition Height="Auto" />
                    <RowDefinition Height="*" />
                </Grid.RowDefinitions>

                <!--  Print properties row 0  -->
                <Grid Grid.Row="0" Margin="10">
                    <Grid>
                        <Grid.RowDefinitions>
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="Auto" />
                        </Grid.RowDefinitions>
                        <Grid.ColumnDefinitions>
                            <ColumnDefinition Width="Auto" />
                            <ColumnDefinition Width="*" />
                        </Grid.ColumnDefinitions>

                        <DockPanel Grid.ColumnSpan="2" HorizontalAlignment="Stretch">
                            <TextBlock FontSize="16" FontWeight="Bold" Text="Print properties " />
                            <Separator Margin="0" Background="DarkGray" />
                        </DockPanel>

                        <!--  Title  -->
                        <TextBlock Grid.Row="1" Margin="5"
                                   VerticalAlignment="Center" Text="Title: " />
                        <TextBox Grid.Row="1" Grid.Column="1"
                                 Margin="5" VerticalAlignment="Center"
                                 HorizontalScrollBarVisibility="Visible"
                                 Text="{Binding Title, Mode=TwoWay, ElementName=MyMapPrinter}"
                                 TextWrapping="Wrap" />

                        <!--  Rotate map  -->
                        <TextBlock Grid.Row="2" Margin="5"
                                   VerticalAlignment="Center" Text="Rotate Map: " />
                        <CheckBox Grid.Row="2" Grid.Column="1"
                                  Margin="5" VerticalAlignment="Center"
                                  IsChecked="{Binding RotateMap, Mode=TwoWay, ElementName=MyMapPrinter}" />

                        <!--  Style selector from the PrintTemplates resource dictionary  -->
                        <TextBlock Grid.Row="3" Margin="5"
                                   VerticalAlignment="Center" Text="Print Style: " />
                        <ComboBox x:Name="MyPrintTemplateCombo" Grid.Row="3"
                                  Grid.Column="1" MinWidth="80"
                                  Margin="5" VerticalAlignment="Center"
                                  DisplayMemberPath="Key"
                                  ItemsSource="{StaticResource PrintTemplates}"
                                  SelectedValuePath="Value">
                            <i:Interaction.Triggers>
                                <i:EventTrigger EventName="Loaded">
                                    <ie:ChangePropertyAction PropertyName="SelectedIndex" Value="1" />
                                </i:EventTrigger>
                            </i:Interaction.Triggers>
                        </ComboBox>
                    </Grid>
                </Grid>

                <!--  Print Menu  row 1  -->
                <Grid Grid.Row="1" Margin="10">
                    <Grid>
                        <Grid.RowDefinitions>
                            <RowDefinition />
                            <RowDefinition />
                            <RowDefinition />
                        </Grid.RowDefinitions>
                        <Grid.ColumnDefinitions>
                            <ColumnDefinition Width="Auto" />
                            <ColumnDefinition Width="*" />
                        </Grid.ColumnDefinitions>
                        <DockPanel Grid.ColumnSpan="2">
                            <TextBlock FontSize="16" FontWeight="Bold" Text="Print menu " />
                            <Separator Margin="0" Background="DarkGray" />
                        </DockPanel>

                        <!--  Preview size selector  -->
                        <TextBlock Grid.Row="1" Margin="5"
                                   VerticalAlignment="Center" Text="Preview size: " />
                        <ComboBox Grid.Row="1" Grid.Column="1"
                                  MinWidth="80" Margin="5"
                                  VerticalAlignment="Center" DisplayMemberPath="Id"
                                  ItemsSource="{StaticResource MyPreviewSizes}"
                                  SelectedIndex="0" SelectionChanged="OnPreviewSizeChanged" />

                        <!--  Print Button  -->
                        <Button x:Name="PrintButton" Grid.Row="2"
                                Grid.ColumnSpan="2" Margin="5"
                                HorizontalAlignment="Stretch" Click="OnPrint"
                                ToolTipService.ToolTip="Print Map">
                            <Image Source="/Assets/Images/i_print.png" Stretch="None" />
                        </Button>
                    </Grid>
                </Grid>

                <!--  Busy indicator over all parameters  -->
                <Grid Grid.Row="0" Grid.RowSpan="2"
                      Background="#80FFFFFF"
                      Visibility="{Binding IsPrinting, ElementName=MyMapPrinter, Converter={StaticResource BooleanToVisibilityConverter}}">
                    <Grid HorizontalAlignment="Center" VerticalAlignment="Center">
                        <Border Background="White" BorderBrush="Black" BorderThickness="1">
                            <StackPanel Margin="10" Orientation="Horizontal">
                                <Grid x:Name="BusyIndicator" Margin="3,0"
                                      HorizontalAlignment="Center" VerticalAlignment="Center"
                                      Background="Transparent" RenderTransformOrigin="0.5,0.5">
                                    <Grid.Triggers>
                                        <EventTrigger RoutedEvent="Grid.Loaded">
                                            <EventTrigger.Actions>
                                                <BeginStoryboard>
                                                    <Storyboard>
                                                        <DoubleAnimation Duration="0:0:1" RepeatBehavior="Forever"
                                                                         Storyboard.TargetName="BusyIndicator"
                                                                         Storyboard.TargetProperty="(UIElement.RenderTransform).(RotateTransform.Angle)"
                                                                         To="360" />
                                                    </Storyboard>
                                                </BeginStoryboard>
                                            </EventTrigger.Actions>
                                        </EventTrigger>
                                    </Grid.Triggers>

                                    <Grid.RenderTransform>
                                        <RotateTransform />
                                    </Grid.RenderTransform>
                                    <Ellipse Width="2" Height="2"
                                             Margin="11,2,11,20" Fill="#1E525252" />
                                    <Ellipse Width="3" Height="3"
                                             Margin="0,4,5,0" HorizontalAlignment="Right"
                                             VerticalAlignment="Top" Fill="#3F525252" />
                                    <Ellipse Width="4" Height="4"
                                             Margin="0,9,1,0" HorizontalAlignment="Right"
                                             VerticalAlignment="Top" Fill="#7F525252" />
                                    <Ellipse Width="5" Height="5"
                                             Margin="0,0,3,3" HorizontalAlignment="Right"
                                             VerticalAlignment="Bottom" Fill="#BF525252" />
                                    <Ellipse Width="6" Height="6"
                                             Margin="9,0" VerticalAlignment="Bottom"
                                             Fill="#FF525252" />
                                </Grid>
                                <TextBlock FontSize="22" Text="Printing..." />
                            </StackPanel>

                        </Border>
                    </Grid>
                </Grid>

                <!--  Footer with Done/Cancel button row 2  -->
                <StackPanel Grid.Row="2" VerticalAlignment="Bottom">
                    <Separator Margin="5,0" Background="DarkGray" />
                    <Button Margin="5" HorizontalAlignment="Right"
                            Click="DesactivatePrintPreview" FontSize="14">
                        <Button.Style>
                            <Style TargetType="{x:Type Button}">
                                <Style.Triggers>
                                    <DataTrigger Binding="{Binding IsPrinting, ElementName=MyMapPrinter}" Value="True">
                                        <Setter Property="Content" Value="Cancel" />
                                    </DataTrigger>
                                    <DataTrigger Binding="{Binding IsPrinting, ElementName=MyMapPrinter}" Value="False">
                                        <Setter Property="Content" Value="Done" />
                                    </DataTrigger>
                                </Style.Triggers>
                            </Style>
                        </Button.Style>
                    </Button>
                </StackPanel>
            </Grid>

            <!--  Separator  column 1  -->
            <Border Grid.Column="1" HorizontalAlignment="Stretch"
                    BorderBrush="Black" BorderThickness="1" />

            <!--  Preview Map column 2  -->
            <Grid Grid.Column="2">
                <!--  Viewbox allows the whole mapprinter to be rendered in the allocate size  -->
                <Border Margin="4" HorizontalAlignment="Center"
                        VerticalAlignment="Center" BorderBrush="Black"
                        BorderThickness="1">
                    <Border.Effect>
                        <DropShadowEffect Direction="-45" Opacity="0.5" ShadowDepth="4" />
                    </Border.Effect>
                    <Viewbox>
                        <local:MapPrinter x:Name="MyMapPrinter" Title="USA"
                                          Width="750" Height="1050"
                                          HorizontalContentAlignment="Stretch"
                                          VerticalContentAlignment="Stretch"
                                          Template="{Binding SelectedValue, ElementName=MyPrintTemplateCombo}" />
                    </Viewbox>
                </Border>
            </Grid>
        </Grid>
    </Grid>
</UserControl>

C#

using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Local;
using System;
using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.ComponentModel;
using System.Linq;
using System.Reflection;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Threading;


namespace ArcGISWPFSDK
{
    public partial class ClientSidePrint : UserControl
    {
        public ClientSidePrint()
        {
            InitializeComponent();
        }

        private void ActivatePrintPreview(object sender, RoutedEventArgs e)
        {
            PrintPreview.Visibility = Visibility.Visible;
            MyMapPrinter.Map = MyMap; // sets the Map to print and initializes the PrintMap with a cloned map (as defined in the print style)
        }

        private void DesactivatePrintPreview(object sender, RoutedEventArgs e)
        {
            PrintPreview.Visibility = Visibility.Collapsed;
            MyMapPrinter.Map = null;  // cancel the current print and frees the cloned map
        }

        private void OnPreviewSizeChanged(object sender, SelectionChangedEventArgs e)
        {
            // Chnage the preview size of the print map.
            // Note that this size will be overwritten during the print process by the real print area of the printer (depending on print parameters: paper size, orientation,...)
            var previewSize = ((ComboBox)sender).SelectedItem as PreviewSize;
            if (previewSize != null && MyMapPrinter != null)
                MyMapPrinter.SetPrintableArea(previewSize.Height, previewSize.Width);
        }

        private void OnPrint(object sender, RoutedEventArgs e)
        {
            // Start the print process
            MyMapPrinter.Print();
        }
    }

    // Main print control that displays the map using the print template
    public class MapPrinter : Control, INotifyPropertyChanged
    {
        public MapPrinter()
        {
            _isPrinting = false;
            DataContext = this; // simplify binding in print styles
        }

        // Executed when the print template changed
        public override void OnApplyTemplate()
        {
            var extent = PrintMap == null ? null : PrintMap.Extent; // save the current print extent that will be lost after OnApplyTemplate (since the PrintMap changes)
            base.OnApplyTemplate();
            PrintMap = GetTemplateChild("PrintMap") as ESRI.ArcGIS.Client.Map;
            PrintMap.Extent = extent ?? Map.Extent; // restore previous print extent or init it with the current map extent
        }

        // Map to print (Dependency Property)
        public ESRI.ArcGIS.Client.Map Map
        {
            get { return (ESRI.ArcGIS.Client.Map)GetValue(MapProperty); }
            set { SetValue(MapProperty, value); }
        }

        public static readonly DependencyProperty MapProperty = DependencyProperty.Register("Map", typeof(ESRI.ArcGIS.Client.Map), typeof(MapPrinter), new PropertyMetadata(null, OnMapChanged));

        private static void OnMapChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            var mapPrinter = d as MapPrinter;
            var newMap = e.NewValue as ESRI.ArcGIS.Client.Map;
            if (mapPrinter != null)
            {
                if (newMap != null && mapPrinter.PrintMap != null)
                    mapPrinter.PrintMap.Extent = newMap.Extent;
                if (newMap == null && mapPrinter.IsPrinting)
                    mapPrinter.IsCancelingPrint = true;
            }
        }

        // Title of the print document (Dependency Property)
        public string Title
        {
            get { return (string)GetValue(TitleProperty); }
            set { SetValue(TitleProperty, value); }
        }

        public static readonly DependencyProperty TitleProperty = DependencyProperty.Register("Title", typeof(string), typeof(MapPrinter), new PropertyMetadata("Map Document"));

        // Flag indicating that the map must be rotated 90° 
        public bool RotateMap
        {
            get { return (bool)GetValue(RotateMapProperty); }
            set { SetValue(RotateMapProperty, value); }
        }

        public static readonly DependencyProperty RotateMapProperty =
                DependencyProperty.Register("RotateMap", typeof(bool), typeof(MapPrinter), new PropertyMetadata(false, OnRotateMapChanged));

        private static void OnRotateMapChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            var mapPrinter = d as MapPrinter;
            if (mapPrinter != null)
                mapPrinter.PrintMap.Rotation = ((bool)e.NewValue ? -90 : 0);
        }

        bool _isPrinting;
        // Indicates if a print task is going on.
        public bool IsPrinting
        {
            get { return _isPrinting; }
            private set
            {
                if (value != _isPrinting)
                {
                    _isPrinting = value;
                    NotifyPropertyChanged("IsPrinting");
                }
            }
        }

        // The print map (defined in the print template)
        public ESRI.ArcGIS.Client.Map PrintMap { get; private set; }

        // Gets the current date/time.
        public DateTime Now
        {
            get { return DateTime.Now; }
        }

        // Start the print process (by delagating either to the Silverlight print engine or to the WPF print engine)
        public void Print()
        {
            if (IsPrinting)
                return;

            // Create the print engine depending on silverlight/WPF
            var printEngine = new WpfPrintEngine(this);

            // Call the print engine doing the work
            try
            {
                printEngine.Print();
            }
            catch (Exception e)
            {
                EndPrint(e);
            }
        }

        // InotifyPropertyChanged implementation
        public event PropertyChangedEventHandler PropertyChanged;

        // Notifies the property changed.
        protected void NotifyPropertyChanged(string propertyName)
        {
            if (PropertyChanged != null)
            {
                PropertyChanged(this, new PropertyChangedEventArgs(propertyName));
            }
        }

        // Internal methods/properties
        internal bool IsCancelingPrint { get; set; }

        internal void BeginPrint()
        {
            IsCancelingPrint = false;
            IsPrinting = true;

            NotifyPropertyChanged("Now"); // in case time is displayed
        }

        internal void EndPrint(Exception error)
        {
            if (error != null && !IsCancelingPrint)
                MessageBox.Show(string.Format("Error during print: {0}", error.Message));
            IsPrinting = false;
            IsCancelingPrint = false;
        }

        internal void SetPrintableArea(double printableAreaHeight, double printableAreaWidth)
        {
            // Recalculate layout in order to fit printable area
            Height = printableAreaHeight;
            Width = printableAreaWidth;

            // Update map size
            UpdateLayout();
        }
    }

    // Collection of PreviewSize (creatable in XAML)
    public class PreviewSizes : ObservableCollection<PreviewSize> { }

    // Represents a Preview Size (creatable in XAML)
    public class PreviewSize
    {
        public string Id { get; set; }
        public double Width { get; set; }
        public double Height { get; set; }
    }

    // WPF PrintEngine class: Print a map by using a WPF PrintDialog
    internal class WpfPrintEngine
    {
        private readonly MapPrinter _mapPrinter;

        // Used during print
        private PrintDialog _printDialog;
        private MapLoader _mapLoader;

        public WpfPrintEngine(MapPrinter mapPrinter)
        {
            _mapPrinter = mapPrinter;
        }

        public void Print()
        {
            _printDialog = new PrintDialog();
            if (_printDialog.ShowDialog() != true)
                return;

            BeginPrint();

            // Set the printable area size which is unknown before the print of the first page
            var extent = _mapPrinter.PrintMap.Extent;
            _mapPrinter.SetPrintableArea(_printDialog.PrintableAreaHeight, _printDialog.PrintableAreaWidth);

            // change the extent of the map and wait for all layers loaded (progress == 100)
            _mapLoader.WaitForLoaded();
            _mapPrinter.PrintMap.Extent = extent;
        }

        private void BeginPrint()
        {
            _mapPrinter.BeginPrint();

            _mapLoader = new MapLoader(_mapPrinter.PrintMap);
            _mapLoader.Loaded += OnMapLoaded;
        }

        private void EndPrint(Exception error)
        {
            _mapPrinter.EndPrint(error);
            _mapLoader.Loaded -= OnMapLoaded;
            _printDialog = null;
        }

        private void OnMapLoaded(object sender, EventArgs e)
        {
            _mapPrinter.UpdateLayout(); // else latest tiles sometimes not displayed

            // Print the mapPrinter control now that the map is loaded
            if (!_mapPrinter.IsCancelingPrint)
                _printDialog.PrintVisual(_mapPrinter, _mapPrinter.Title);
            EndPrint(null);
        }
    }


    // Helper class to know when a map is loaded and so ready to print.
    // It's waiting for progress = 100 but sometimes this event never comes (e.g. with a dynamic layer when the image is in the cache)
    // So there is a timer to avoid infinite wait.
    internal class MapLoader
    {
        private readonly ESRI.ArcGIS.Client.Map _map;
        private readonly DispatcherTimer _timer;
        private bool _isProgressing; // some progress events came up 

        public MapLoader(ESRI.ArcGIS.Client.Map map)
        {
            _map = map;
            _timer = new DispatcherTimer();
            _timer.Tick += OnTimerTick;
            _isProgressing = false;
        }

        // Waits for the map loaded.
        public void WaitForLoaded()
        {
            _map.Progress += OnMapProgress; // subscribe to OnProgress event
            if (_timer.IsEnabled)
                _timer.Stop();
            _timer.Interval = TimeSpan.FromSeconds(10); // Wait 10 seconds before the first mapprogress event, after that, consider that the map was already ready
            _timer.Start();
        }

        /// Cancels the wait.
        public void CancelWait()
        {
            _timer.Stop();
            _map.Progress -= OnMapProgress;
        }

        // Occurs when the map is loaded.
        public event EventHandler<EventArgs> Loaded;
        private void OnLoaded()
        {
            CancelWait();
            var handler = Loaded;
            if (handler != null)
                handler(this, new EventArgs());
        }

        // Security timer to avoid infinite waiting (not useful with Silverlight which anyway calls PrintPage only 7 times)
        private void OnTimerTick(object sender, EventArgs e)
        {
            if (_isProgressing)
            {
                // Progress events are coming -> wait more
                _isProgressing = false;
                _timer.Interval = TimeSpan.FromSeconds(30);
            }
            else
            {
                // No progress event since last test --> stop and consider the map as loaded
                OnLoaded();
            }
        }

        private void OnMapProgress(object sender, ProgressEventArgs e)
        {
            _isProgressing = true;
            if (e.Progress == 100)
                OnLoaded(); // map is ready
        }
    }

    // Define an attached property allowing to initialize a map by cloning the layers of another map.
    public static class CloneMap
    {
        // Map to clone attached property
        public static String GetMap(DependencyObject obj)
        {
            return (String)obj.GetValue(MapProperty);
        }

        public static void SetMap(DependencyObject obj, String value)
        {
            obj.SetValue(MapProperty, value);
        }

        public static readonly DependencyProperty MapProperty = DependencyProperty.RegisterAttached("Map", typeof(ESRI.ArcGIS.Client.Map), typeof(CloneMap), new PropertyMetadata(null, OnMapChanged));

        private static void OnMapChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            var map = d as ESRI.ArcGIS.Client.Map;
            if (map == null)
                return;
            var mapToClone = (ESRI.ArcGIS.Client.Map)e.NewValue;

            map.Layers.Clear();
            if (mapToClone != null)
                Clone(map, mapToClone);
        }

        // Clone a Map
        private static void Clone(ESRI.ArcGIS.Client.Map map, ESRI.ArcGIS.Client.Map mapToClone)
        {
            map.MinimumResolution = mapToClone.MinimumResolution;
            map.MaximumResolution = mapToClone.MaximumResolution;
            map.TimeExtent = mapToClone.TimeExtent;
            map.WrapAround = mapToClone.WrapAround;

            // Clone layers
            foreach (var toLayer in mapToClone.Layers.Select(CloneLayer).Where(toLayer => toLayer != null))
            {
                toLayer.InitializationFailed += (s, e) => { }; // to avoid crash if bad layer
                map.Layers.Add(toLayer); // use index in order to keep existing layers after cloned layers
            }
        }

        // Clone a Layer
        private static Layer CloneLayer(Layer layer)
        {
            Layer toLayer;
            var featureLayer = layer as FeatureLayer;

            if (layer is GraphicsLayer && (featureLayer == null || featureLayer.Url == null || featureLayer.Mode != FeatureLayer.QueryMode.OnDemand))
            {
                // Clone the layer and the graphics
                var fromLayer = layer as GraphicsLayer;
                var printLayer = new GraphicsLayer
                {
                    Renderer = fromLayer.Renderer,
                    Clusterer = fromLayer.Clusterer == null ? null : fromLayer.Clusterer.Clone()
                };
                toLayer = printLayer;

                var graphicCollection = new GraphicCollection();
                foreach (var graphic in fromLayer.Graphics)
                {
                    var clone = new Graphic();

                    foreach (var kvp in graphic.Attributes)
                    {
                        if (kvp.Value is DependencyObject)
                        {
                            // If the attribute is a dependency object --> clone it
                            var clonedkvp = new KeyValuePair<string, object>(kvp.Key, (kvp.Value as DependencyObject).Clone());
                            clone.Attributes.Add(clonedkvp);
                        }
                        else
                            clone.Attributes.Add(kvp);
                    }
                    clone.Geometry = graphic.Geometry;
                    clone.Symbol = graphic.Symbol;
                    clone.Selected = graphic.Selected;
                    clone.TimeExtent = graphic.TimeExtent;
                    graphicCollection.Add(clone);
                }

                printLayer.Graphics = graphicCollection;

                toLayer.ID = layer.ID;
                toLayer.Opacity = layer.Opacity;
                toLayer.Visible = layer.Visible;
                toLayer.MaximumResolution = layer.MaximumResolution;
                toLayer.MinimumResolution = layer.MinimumResolution;
            }
            else
            {
                // Clone other layer types
                toLayer = layer.Clone();
                //Issue when "cloning" all elements of a ArcGISLocalFeatureLayer. The LayerID should not be set (to be set when loading).
                if (layer is ArcGISLocalFeatureLayer)
                {
                    if (((ArcGISLocalFeatureLayer)toLayer).LayerName != null)
                        ((ArcGISLocalFeatureLayer)toLayer).LayerId = null;
                }

                // Clone sub layers
                if (layer is GroupLayerBase)
                {
                    // Clone sublayers (not cloned in Clone() to avoid issue with graphicslayer)
                    var childLayers = new LayerCollection();
                    foreach (Layer subLayer in (layer as GroupLayerBase).ChildLayers)
                    {
                        var toSubLayer = CloneLayer(subLayer);

                        if (toSubLayer != null)
                        {
                            toSubLayer.InitializationFailed += (s, e) => { }; // to avoid crash if bad layer
                            childLayers.Add(toSubLayer);
                        }
                    }
                    ((GroupLayerBase)toLayer).ChildLayers = childLayers;
                }
            }
            return toLayer;
        }
    }

    // Generic class extention for cloning recursively a dependency object
    // Very limited implementation based on CLR properties
    // Attached properties are not taken in care except specific case for this sample
    // Is used to clone Layers and Elements of ElementLayer
    public static class CloneExtension
    {
        // Clones a dependency object.
        public static T Clone<T>(this T source) where T : DependencyObject
        {
            Type t = source.GetType(); // can be different from typeof(T)
            var clone = (T)Activator.CreateInstance(t);

            // Loop on CLR properties (except name, parent and graphics)
            foreach (PropertyInfo propertyInfo in t.GetProperties())
            {
                if (propertyInfo.Name == "Name" || propertyInfo.Name == "Parent" || propertyInfo.Name == "Graphics" || propertyInfo.Name == "ChildLayers" ||
                        !propertyInfo.CanRead || propertyInfo.GetGetMethod() == null ||
                        propertyInfo.GetIndexParameters().Length > 0)
                    continue;

                try
                {
                    Object value = propertyInfo.GetValue(source, null);
                    if (value != null)
                    {
                        if (propertyInfo.PropertyType.GetInterface("IList", true) != null && !propertyInfo.PropertyType.IsArray)
                        {
                            // Collection ==> loop on items and clone them (we suppose the collection itself is already initialized!)
                            var count = (int)propertyInfo.PropertyType.InvokeMember("get_Count", BindingFlags.InvokeMethod, null, value, null);
                            propertyInfo.PropertyType.InvokeMember("Clear", BindingFlags.InvokeMethod, null, propertyInfo.GetValue(clone, null), null); // without this line, text can be duplicated due to inlines objects added after text is set

                            for (int index = 0; index < count; index++)
                            {
                                object itemValue = propertyInfo.PropertyType.InvokeMember("get_Item", BindingFlags.InvokeMethod, null, propertyInfo.GetValue(source, null), new object[] { index });
                                propertyInfo.PropertyType.InvokeMember("Add", BindingFlags.InvokeMethod, null, propertyInfo.GetValue(clone, null), new[] { CloneDependencyObject(itemValue) });
                            }
                        }
                        else if (propertyInfo.CanWrite && propertyInfo.GetSetMethod() != null)
                        {
                            propertyInfo.SetValue(clone, CloneDependencyObject(value), null);
                        }
                    }
                }
                catch (Exception) { }
            }

            // Copy some useful attached properties (not done by reflection)
            if (source is UIElement)
            {
                DependencyProperty attachedProperty = ESRI.ArcGIS.Client.ElementLayer.EnvelopeProperty; // needed for ElementLayer
                SetDependencyProperty(attachedProperty, source, clone);
            }

            return clone;
        }

        static private object CloneDependencyObject(object source)
        {
            return source is DependencyObject ? (source as DependencyObject).Clone() : source;
        }

        static private void SetDependencyProperty(DependencyProperty dp, DependencyObject source, DependencyObject clone)
        {
            Object value = source.GetValue(dp);
            if (value != null)
                clone.SetValue(dp, CloneDependencyObject(value));
        }
    }
}

VB.NET

Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Local
Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.Linq
Imports System.Reflection
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Threading



Namespace ArcGISWPFSDK
    Partial Public Class ClientSidePrint
        Inherits UserControl
        Public Sub New()
            InitializeComponent()
        End Sub

        Public Sub ActivatePrintPreview(sender As Object, e As RoutedEventArgs)
            PrintPreview.Visibility = Visibility.Visible
            MyMapPrinter.Map = MyMap
            ' sets the Map to print and initializes the PrintMap with a cloned map (as defined in the print style)
        End Sub

        Public Sub DesactivatePrintPreview(sender As Object, e As RoutedEventArgs)
            PrintPreview.Visibility = Visibility.Collapsed
            MyMapPrinter.Map = Nothing
            ' cancel the current print and frees the cloned map
        End Sub

        Public Sub OnPreviewSizeChanged(sender As Object, e As SelectionChangedEventArgs)
            ' Chnage the preview size of the print map.
            ' Note that this size will be overwritten during the print process by the real print area of the printer (depending on print parameters: paper size, orientation,...)
            Dim previewSize = TryCast(DirectCast(sender, ComboBox).SelectedItem, PreviewSize)
            If previewSize IsNot Nothing AndAlso MyMapPrinter IsNot Nothing Then
                MyMapPrinter.SetPrintableArea(previewSize.Height, previewSize.Width)
            End If
        End Sub

        Public Sub OnPrint(sender As Object, e As RoutedEventArgs)
            ' Start the print process
            MyMapPrinter.Print()
        End Sub
    End Class

    ' Main print control that displays the map using the print template
    Public Class MapPrinter
        Inherits Control
        Implements INotifyPropertyChanged
        Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
        Public Sub New()
            _isPrinting = False
            ' simplify binding in print styles
            DataContext = Me
        End Sub

        ' Executed when the print template changed
        Public Overrides Sub OnApplyTemplate()
            Dim extent = If(PrintMap Is Nothing, Nothing, PrintMap.Extent)
            ' save the current print extent that will be lost after OnApplyTemplate (since the PrintMap changes)
            MyBase.OnApplyTemplate()
            PrintMap = TryCast(GetTemplateChild("PrintMap"), ESRI.ArcGIS.Client.Map)
            PrintMap.Extent = If(extent, Map.Extent)
            ' restore previous print extent or init it with the current map extent
        End Sub

        ' Map to print (Dependency Property)
        Public Property Map() As ESRI.ArcGIS.Client.Map
            Get
                Return DirectCast(GetValue(MapProperty), ESRI.ArcGIS.Client.Map)
            End Get
            Set(value As ESRI.ArcGIS.Client.Map)
                SetValue(MapProperty, value)
            End Set
        End Property

        Public Shared ReadOnly MapProperty As DependencyProperty = DependencyProperty.Register("Map", GetType(ESRI.ArcGIS.Client.Map), GetType(MapPrinter), New PropertyMetadata(Nothing, AddressOf OnMapChanged))

        Public Shared Sub OnMapChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
            Dim mapPrinter = TryCast(d, MapPrinter)
            Dim newMap = TryCast(e.NewValue, ESRI.ArcGIS.Client.Map)
            If mapPrinter IsNot Nothing Then
                If newMap IsNot Nothing AndAlso mapPrinter.PrintMap IsNot Nothing Then
                    mapPrinter.PrintMap.Extent = newMap.Extent
                End If
                If newMap Is Nothing AndAlso mapPrinter.IsPrinting Then
                    mapPrinter.IsCancelingPrint = True
                End If
            End If
        End Sub

        ' Title of the print document (Dependency Property)
        Public Property Title() As String
            Get
                Return DirectCast(GetValue(TitleProperty), String)
            End Get
            Set(value As String)
                SetValue(TitleProperty, value)
            End Set
        End Property

        Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(MapPrinter), New PropertyMetadata("Map Document"))

        ' Flag indicating that the map must be rotated 90° 
        Public Property RotateMap() As Boolean
            Get
                Return CBool(GetValue(RotateMapProperty))
            End Get
            Set(value As Boolean)
                SetValue(RotateMapProperty, value)
            End Set
        End Property

        Public Shared ReadOnly RotateMapProperty As DependencyProperty = DependencyProperty.Register("RotateMap", GetType(Boolean), GetType(MapPrinter), New PropertyMetadata(False, AddressOf OnRotateMapChanged))

        Public Shared Sub OnRotateMapChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
            Dim mapPrinter = TryCast(d, MapPrinter)
            If mapPrinter IsNot Nothing Then
                mapPrinter.PrintMap.Rotation = (If(CBool(e.NewValue), -90, 0))
            End If
        End Sub

        Public _isPrinting As Boolean
        ' Indicates if a print task is going on.
        Public Property IsPrinting() As Boolean
            Get
                Return _isPrinting
            End Get
            Private Set(value As Boolean)
                If value <> _isPrinting Then
                    _isPrinting = value
                    NotifyPropertyChanged("IsPrinting")
                End If
            End Set
        End Property

        ' The print map (defined in the print template)
        Public Property PrintMap() As ESRI.ArcGIS.Client.Map
            Get
                Return m_PrintMap
            End Get
            Private Set(value As ESRI.ArcGIS.Client.Map)
                m_PrintMap = value
            End Set
        End Property
        Public m_PrintMap As ESRI.ArcGIS.Client.Map

        ' Gets the current date/time.
        Public ReadOnly Property Now() As DateTime
            Get
                Return DateTime.Now
            End Get
        End Property

        ' Start the print process (by delagating either to the Silverlight print engine or to the WPF print engine)
        Public Sub Print()
            If IsPrinting Then
                Return
            End If

            ' Create the print engine depending on silverlight/WPF
            Dim printEngine = New WpfPrintEngine(Me)

            ' Call the print engine doing the work
            Try
                printEngine.Print()
            Catch e As Exception
                EndPrint(e)
            End Try
        End Sub

        ' Notifies the property changed.
        Protected Sub NotifyPropertyChanged(propertyName As String)
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
        End Sub

        ' Internal methods/properties
        Friend Property IsCancelingPrint() As Boolean
            Get
                Return m_IsCancelingPrint
            End Get
            Set(value As Boolean)
                m_IsCancelingPrint = value
            End Set
        End Property
        Public m_IsCancelingPrint As Boolean

        Friend Sub BeginPrint()
            IsCancelingPrint = False
            IsPrinting = True

            NotifyPropertyChanged("Now")
            ' in case time is displayed
        End Sub

        Friend Sub EndPrint([error] As Exception)
            If [error] IsNot Nothing AndAlso Not IsCancelingPrint Then
                MessageBox.Show(String.Format("Error during print: {0}", [error].Message))
            End If
            IsPrinting = False
            IsCancelingPrint = False
        End Sub

        Friend Sub SetPrintableArea(printableAreaHeight As Double, printableAreaWidth As Double)
            ' Recalculate layout in order to fit printable area
            Height = printableAreaHeight
            Width = printableAreaWidth

            ' Update map size
            UpdateLayout()
        End Sub


    End Class

    ' Collection of PreviewSize (creatable in XAML)
    Public Class PreviewSizes
        Inherits ObservableCollection(Of PreviewSize)
    End Class

    ' Represents a Preview Size (creatable in XAML)
    Public Class PreviewSize
        Public Property Id() As String
            Get
                Return m_Id
            End Get
            Set(value As String)
                m_Id = value
            End Set
        End Property
        Public m_Id As String
        Public Property Width() As Double
            Get
                Return m_Width
            End Get
            Set(value As Double)
                m_Width = value
            End Set
        End Property
        Public m_Width As Double
        Public Property Height() As Double
            Get
                Return m_Height
            End Get
            Set(value As Double)
                m_Height = value
            End Set
        End Property
        Public m_Height As Double
    End Class

    ' WPF PrintEngine class: Print a map by using a WPF PrintDialog
    Friend Class WpfPrintEngine
        Public ReadOnly _mapPrinter As MapPrinter

        ' Used during print
        Public _printDialog As PrintDialog
        Public _mapLoader As MapLoader

        Public Sub New(mapPrinter As MapPrinter)
            _mapPrinter = mapPrinter
        End Sub

        Public Sub Print()
            _printDialog = New PrintDialog()
            If _printDialog.ShowDialog() <> True Then
                Return
            End If

            BeginPrint()

            ' Set the printable area size which is unknown before the print of the first page
            Dim extent = _mapPrinter.PrintMap.Extent
            _mapPrinter.SetPrintableArea(_printDialog.PrintableAreaHeight, _printDialog.PrintableAreaWidth)

            ' change the extent of the map and wait for all layers loaded (progress == 100)
            _mapLoader.WaitForLoaded()
            _mapPrinter.PrintMap.Extent = extent
        End Sub

        Public Sub BeginPrint()
            _mapPrinter.BeginPrint()

            _mapLoader = New MapLoader(_mapPrinter.PrintMap)
            AddHandler _mapLoader.Loaded, AddressOf OnMapLoaded
        End Sub

        Public Sub EndPrint([error] As Exception)
            _mapPrinter.EndPrint([error])
            RemoveHandler _mapLoader.Loaded, AddressOf OnMapLoaded
            _printDialog = Nothing
        End Sub

        Public Sub OnMapLoaded(sender As Object, e As EventArgs)
            _mapPrinter.UpdateLayout()
            ' else latest tiles sometimes not displayed
            ' Print the mapPrinter control now that the map is loaded
            If Not _mapPrinter.IsCancelingPrint Then
                _printDialog.PrintVisual(_mapPrinter, _mapPrinter.Title)
            End If
            EndPrint(Nothing)
        End Sub
    End Class


    ' Helper class to know when a map is loaded and so ready to print.
    ' It's waiting for progress = 100 but sometimes this event never comes (e.g. with a dynamic layer when the image is in the cache)
    ' So there is a timer to avoid infinite wait.
    Friend Class MapLoader
        Public ReadOnly _map As ESRI.ArcGIS.Client.Map
        Public ReadOnly _timer As DispatcherTimer
        Public _isProgressing As Boolean
        ' some progress events came up 
        Public Sub New(map As ESRI.ArcGIS.Client.Map)
            _map = map
            _timer = New DispatcherTimer()
            AddHandler _timer.Tick, AddressOf OnTimerTick
            _isProgressing = False
        End Sub

        ' Waits for the map loaded.
        Public Sub WaitForLoaded()
            AddHandler _map.Progress, AddressOf OnMapProgress
            ' subscribe to OnProgress event
            If _timer.IsEnabled Then
                _timer.[Stop]()
            End If
            _timer.Interval = TimeSpan.FromSeconds(10)
            ' Wait 10 seconds before the first mapprogress event, after that, consider that the map was already ready
            _timer.Start()
        End Sub

        ''' Cancels the wait.
        Public Sub CancelWait()
            _timer.[Stop]()
            RemoveHandler _map.Progress, AddressOf OnMapProgress
        End Sub

        ' Occurs when the map is loaded.
        Public Event Loaded As EventHandler(Of EventArgs)

        Public Sub OnLoaded()
            CancelWait()
            RaiseEvent Loaded(Me, New EventArgs())
        End Sub

        ' Security timer to avoid infinite waiting (not useful with Silverlight which anyway calls PrintPage only 7 times)
        Public Sub OnTimerTick(sender As Object, e As EventArgs)
            If _isProgressing Then
                ' Progress events are coming -> wait more
                _isProgressing = False
                _timer.Interval = TimeSpan.FromSeconds(30)
            Else
                ' No progress event since last test --> stop and consider the map as loaded
                OnLoaded()
            End If
        End Sub

        Public Sub OnMapProgress(sender As Object, e As ProgressEventArgs)
            _isProgressing = True
            If e.Progress = 100 Then
                OnLoaded()
            End If
            ' map is ready
        End Sub
    End Class

    ' Define an attached property allowing to initialize a map by cloning the layers of another map.
    Public NotInheritable Class CloneMap
        Public Sub New()
        End Sub
        ' Map to clone attached property
        Public Shared Function GetMap(obj As DependencyObject) As [String]
            Return DirectCast(obj.GetValue(MapProperty), [String])
        End Function

        Public Shared Sub SetMap(obj As DependencyObject, value As [String])
            obj.SetValue(MapProperty, value)
        End Sub

        Public Shared ReadOnly MapProperty As DependencyProperty = DependencyProperty.RegisterAttached("Map", GetType(ESRI.ArcGIS.Client.Map), GetType(CloneMap), New PropertyMetadata(Nothing, AddressOf OnMapChanged))

        Public Shared Sub OnMapChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
            Dim map = TryCast(d, ESRI.ArcGIS.Client.Map)
            If map Is Nothing Then
                Return
            End If
            Dim mapToClone = DirectCast(e.NewValue, ESRI.ArcGIS.Client.Map)

            map.Layers.Clear()
            If mapToClone IsNot Nothing Then
                Clone(map, mapToClone)
            End If
        End Sub

        ' Clone a Map
        Public Shared Sub Clone(map As ESRI.ArcGIS.Client.Map, mapToClone As ESRI.ArcGIS.Client.Map)
            map.MinimumResolution = mapToClone.MinimumResolution
            map.MaximumResolution = mapToClone.MaximumResolution
            map.TimeExtent = mapToClone.TimeExtent
            map.WrapAround = mapToClone.WrapAround

            ' Clone layers
            For Each toLayer As Object In mapToClone.Layers.[Select](AddressOf CloneLayer).Where(Function(toLayerr) toLayerr IsNot Nothing)

                ' to avoid crash if bad layer
                ' use index in order to keep existing layers after cloned layers
                map.Layers.Add(toLayer)
            Next
        End Sub

        ' Clone a Layer
        Public Shared Function CloneLayer(layer As Layer) As Layer
            Dim toLayer As Layer
            Dim featureLayer__1 = TryCast(layer, FeatureLayer)

            If TypeOf layer Is GraphicsLayer AndAlso (featureLayer__1 Is Nothing OrElse featureLayer__1.Url Is Nothing OrElse featureLayer__1.Mode <> FeatureLayer.QueryMode.OnDemand) Then
                ' Clone the layer and the graphics
                Dim fromLayer = TryCast(layer, GraphicsLayer)
                Dim printLayer = New GraphicsLayer() With { _
                     .Renderer = fromLayer.Renderer,
                      .Clusterer = If(fromLayer.Clusterer Is Nothing, Nothing, fromLayer.Clusterer.Clone()) _
                }
                toLayer = printLayer

                Dim graphicCollection = New GraphicCollection()
                For Each graphic As Object In fromLayer.Graphics
                    Dim clone = New Graphic()

                    For Each kvp As Object In graphic.Attributes
                        If TypeOf kvp.Value Is DependencyObject Then
                            ' If the attribute is a dependency object --> clone it
                            Dim clonedkvp = New KeyValuePair(Of String, Object)(kvp.Key, TryCast(kvp.Value, DependencyObject).Clone())
                            clone.Attributes.Add(clonedkvp)
                        Else
                            clone.Attributes.Add(kvp)
                        End If
                    Next
                    clone.Geometry = graphic.Geometry
                    clone.Symbol = graphic.Symbol
                    clone.Selected = graphic.Selected
                    clone.TimeExtent = graphic.TimeExtent
                    graphicCollection.Add(clone)
                Next

                printLayer.Graphics = graphicCollection

                toLayer.ID = layer.ID
                toLayer.Opacity = layer.Opacity
                toLayer.Visible = layer.Visible
                toLayer.MaximumResolution = layer.MaximumResolution
                toLayer.MinimumResolution = layer.MinimumResolution
            Else
                ' Clone other layer types
                toLayer = layer.Clone()
                'Issue when "cloning" all elements of a ArcGISLocalFeatureLayer. The LayerID should not be set (to be set when loading).
                If TypeOf layer Is ArcGISLocalFeatureLayer Then
                    If DirectCast(toLayer, ArcGISLocalFeatureLayer).LayerName IsNot Nothing Then
                        DirectCast(toLayer, ArcGISLocalFeatureLayer).LayerId = Nothing
                    End If
                End If

                ' Clone sub layers
                If TypeOf layer Is GroupLayerBase Then
                    ' Clone sublayers (not cloned in Clone() to avoid issue with graphicslayer)
                    Dim childLayers = New LayerCollection()
                    For Each subLayer As Layer In TryCast(layer, GroupLayerBase).ChildLayers
                        Dim toSubLayer = CloneLayer(subLayer)

                        If toSubLayer IsNot Nothing Then

                            ' to avoid crash if bad layer
                            childLayers.Add(toSubLayer)
                        End If
                    Next
                    DirectCast(toLayer, GroupLayerBase).ChildLayers = childLayers
                End If
            End If
            Return toLayer
        End Function
    End Class


    ' Generic class extention for cloning recursively a dependency object
    ' Very limited implementation based on CLR properties
    ' Attached properties are not taken in care except specific case for this sample
    ' Is used to clone Layers and Elements of ElementLayer
    Public Module CloneExtension

        ' Clones a dependency object.
        <System.Runtime.CompilerServices.Extension> _
        Public Function Clone(Of T As DependencyObject)(source As T) As T
            Dim o As Type = source.[GetType]()
            ' can be different from typeof(T)
            Dim clone__1 = DirectCast(Activator.CreateInstance(o), T)

            ' Loop on CLR properties (except name, parent and graphics)
            For Each propertyInfo As PropertyInfo In o.GetProperties()
                If propertyInfo.Name = "Name" OrElse propertyInfo.Name = "Parent" OrElse propertyInfo.Name = "Graphics" OrElse propertyInfo.Name = "ChildLayers" OrElse Not propertyInfo.CanRead OrElse propertyInfo.GetGetMethod() Is Nothing OrElse propertyInfo.GetIndexParameters().Length > 0 Then
                    Continue For
                End If

                Try
                    Dim value As [Object] = propertyInfo.GetValue(source, Nothing)
                    If value IsNot Nothing Then
                        If propertyInfo.PropertyType.GetInterface("IList", True) IsNot Nothing AndAlso Not propertyInfo.PropertyType.IsArray Then
                            ' Collection ==> loop on items and clone them (we suppose the collection itself is already initialized!)
                            Dim count = CInt(propertyInfo.PropertyType.InvokeMember("get_Count", BindingFlags.InvokeMethod, Nothing, value, Nothing))
                            propertyInfo.PropertyType.InvokeMember("Clear", BindingFlags.InvokeMethod, Nothing, propertyInfo.GetValue(clone__1, Nothing), Nothing)
                            ' without this line, text can be duplicated due to inlines objects added after text is set
                            For index As Integer = 0 To count - 1
                                Dim itemValue As Object = propertyInfo.PropertyType.InvokeMember("get_Item", BindingFlags.InvokeMethod, Nothing, propertyInfo.GetValue(source, Nothing), New Object() {index})
                                propertyInfo.PropertyType.InvokeMember("Add", BindingFlags.InvokeMethod, Nothing, propertyInfo.GetValue(clone__1, Nothing), {CloneDependencyObject(itemValue)})
                            Next
                        ElseIf propertyInfo.CanWrite AndAlso propertyInfo.GetSetMethod() IsNot Nothing Then
                            propertyInfo.SetValue(clone__1, CloneDependencyObject(value), Nothing)
                        End If
                    End If
                Catch generatedExceptionName As Exception
                End Try
            Next

            ' Copy some useful attached properties (not done by reflection)
            If TypeOf source Is UIElement Then
                Dim attachedProperty As DependencyProperty = ESRI.ArcGIS.Client.ElementLayer.EnvelopeProperty
                ' needed for ElementLayer
                SetDependencyProperty(attachedProperty, source, clone__1)
            End If

            Return clone__1
        End Function

        Public Function CloneDependencyObject(source As Object) As Object
            Return If(TypeOf source Is DependencyObject, TryCast(source, DependencyObject).Clone(), source)
        End Function

        Public Sub SetDependencyProperty(dp As DependencyProperty, source As DependencyObject, clone As DependencyObject)
            Dim value As [Object] = source.GetValue(dp)
            If value IsNot Nothing Then
                clone.SetValue(dp, CloneDependencyObject(value))
            End If
        End Sub
    End Module
End Namespace