/
PageLayout.vb
69 lines (63 loc) · 3.51 KB
/
PageLayout.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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Imports DevExpress.XtraRichEdit.API.Native
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Namespace RichEditAPISample.CodeExamples
Friend Class PageLayoutActions
Private Shared Sub LineNumbering(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#LineNumbering"
document.LoadDocument("Documents//Grimm.docx", DevExpress.XtraRichEdit.DocumentFormat.OpenXml)
document.Unit = DevExpress.Office.DocumentUnit.Inch
Dim sec As DevExpress.XtraRichEdit.API.Native.Section = document.Sections(0)
sec.LineNumbering.CountBy = 2
sec.LineNumbering.Start = 1
sec.LineNumbering.Distance = 0.25F
sec.LineNumbering.RestartType = DevExpress.XtraRichEdit.API.Native.LineNumberingRestart.NewSection
#End Region ' #LineNumbering
End Sub
Private Shared Sub CreateColumns(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#CreateColumns"
document.LoadDocument("Documents//Grimm.docx", DevExpress.XtraRichEdit.DocumentFormat.OpenXml)
document.Unit = DevExpress.Office.DocumentUnit.Inch
' Get the first section in a document.
Dim firstSection As DevExpress.XtraRichEdit.API.Native.Section = document.Sections(0)
' Create equal width column layout.
Dim sectionColumnsLayout As DevExpress.XtraRichEdit.API.Native.SectionColumnCollection = firstSection.Columns.CreateUniformColumns(firstSection.Page, 0.2F, 3)
' Set different column width.
sectionColumnsLayout(CInt((0))).Width = 3F
sectionColumnsLayout(CInt((1))).Width = 2F
sectionColumnsLayout(CInt((2))).Width = 1F
' Apply layout to the document.
firstSection.Columns.SetColumns(sectionColumnsLayout)
#End Region ' #CreateColumns
End Sub
Private Shared Sub PrintLayout(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#PrintLayout"
document.Unit = DevExpress.Office.DocumentUnit.Inch
document.Sections(CInt((0))).Page.PaperKind = System.Drawing.Printing.PaperKind.A6
document.Sections(CInt((0))).Page.Landscape = True
document.Sections(CInt((0))).Margins.Left = 2.0F
#End Region ' #PrintLayout
End Sub
Private Shared Sub TabStops(ByVal document As DevExpress.XtraRichEdit.API.Native.Document)
#Region "#TabStops"
document.Unit = DevExpress.Office.DocumentUnit.Inch
Dim tabs As DevExpress.XtraRichEdit.API.Native.TabInfoCollection = document.Paragraphs(CInt((0))).BeginUpdateTabs(True)
Dim tab1 As DevExpress.XtraRichEdit.API.Native.TabInfo = New DevExpress.XtraRichEdit.API.Native.TabInfo()
' Sets tab stop at 2.5 inch.
tab1.Position = 2.5F
tab1.Alignment = DevExpress.XtraRichEdit.API.Native.TabAlignmentType.Left
tab1.Leader = DevExpress.XtraRichEdit.API.Native.TabLeaderType.MiddleDots
tabs.Add(tab1)
Dim tab2 As DevExpress.XtraRichEdit.API.Native.TabInfo = New DevExpress.XtraRichEdit.API.Native.TabInfo()
tab2.Position = 5.5F
tab2.Alignment = DevExpress.XtraRichEdit.API.Native.TabAlignmentType.[Decimal]
tab2.Leader = DevExpress.XtraRichEdit.API.Native.TabLeaderType.EqualSign
tabs.Add(tab2)
document.Paragraphs(CInt((0))).EndUpdateTabs(tabs)
#End Region ' #TabStops
End Sub
End Class
End Namespace