Imports GrapeCity.ActiveReports.Document.Section.Annotations
Private Sub AddAnnotations()
Dim rpt As rptAnno = New rptAnno
rpt.Run
Me.viewer1.Document = rpt.Document
Dim line As AnnotationLine = New AnnotationLine
line.ArrowCapWidth = 4.5F
line.ArrowCapHeight = 4.5F
line.DashStyle = System.Drawing.Drawing2D.DashStyle.DashDotDot
line.DashCap = System.Drawing.Drawing2D.DashCap.Round
line.ShowArrowCaps = AnnotationLine.ShowArrowCap.RightOnly
line.FillArrowCaps = True
line.LineColor = Color.Red
line.LineWidth = 1
line.LineLocation = AnnotationLine.LinePlacement.Bottom
line.Text = "レビューしてください。"
line.Font = New Font("Arial", 12F, FontStyle.Bold)
line.TextColor = Color.Blue
line.TextAlignment = System.Drawing.StringAlignment.Center
line.Attach(4, 4)
Me.viewer1.Document.Pages(0).Annotations.Add(line)
line.Height = 0.5F
line.Width = 1.5F
End Sub