Software Technology Tips

• add additional information to the report;
• add a report header;
• specify a page header or footer;
• specify the paper size, margins, orientation, etc.

For this we have to import two namespaces:

Imports System.Drawing

Imports DevExpress.XtraPrinting

• Generate the Report Header,
• Set the Paper Format, and
• Add Custom Information to the Report at runtime using XtraPrinting library . 

Dim link As New DevExpress.XtraPrinting.PrintableComponentLink(printingSystem)

link.Component = gridControl

link.PaperKind = System.Drawing.Printing.PaperKind.A4

'Add Custom Information

link.Landscape = True

link.VerticalContentSplitting =  DevExpress.XtraPrinting.VerticalContentSplitting.Smart

link.Margins.Bottom = 100

link.Margins.Top = 100

link.Margins.Left = 10

link.Margins.Right = 10

'Subscribe to the CreateReportHeaderArea event used to generate the report header.

AddHandler link.CreateReportHeaderArea, AddressOf link_CreateReportHeaderArea

' Generate the report.

link.CreateDocument()

' Show the report.

link.ShowPreview()

' to export the report to a PDF file

link.PrintingSystem.ExportToPdf("c:\gridcontrol.pdf")

'event used to generate the report header.

Private Shared Sub link_CreateReportHeaderArea(ByVal sender As System.Object, ByVal e As CreateAreaEventArgs) Dim reportHeader As String = "Report Header"

e.Graph.StringFormat = New BrickStringFormat(StringAlignment.Center)

e.Graph.Font = New Font("Tahoma", 14, FontStyle.Bold)

e.Graph.DrawString(reportHeader, Color.Black, rec, BorderSide.None)

New BrickStringFormat(StringAlignment.Center)New Font("Tahoma", 14, FontStyle.Bold) Dim rec As RectangleF = New RectangleF(0, 0, e.Graph.ClientPageSize.Width, 50)

End

Sub