-
Notifications
You must be signed in to change notification settings - Fork 1
/
MainWindow.xaml.vb
26 lines (21 loc) · 917 Bytes
/
MainWindow.xaml.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports DevExpress.Xpf.Printing
Imports System.Globalization
Imports System.Windows
Imports System.Windows.Controls
Namespace HideExportFormats
Public Partial Class MainWindow
Inherits Window
Private link As SimpleLink
Public Sub New()
Me.InitializeComponent()
AddHandler Me.preview.Loaded, AddressOf Me.OnPreviewLoaded
End Sub
Private Sub OnPreviewLoaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim data As String() = CultureInfo.CurrentCulture.DateTimeFormat.DayNames
link = New SimpleLink With {.DetailTemplate = CType(Resources("dayNameTemplate"), DataTemplate), .DetailCount = data.Length}
AddHandler link.CreateDetail, Sub(s, args) args.Data = data(args.DetailIndex)
Me.preview.DocumentSource = link
link.CreateDocument()
End Sub
End Class
End Namespace