Protected Overridable Sub PrintGrid()
Try
Dim objFooterArea As PageFooterArea = New PageFooterArea
objFooterArea.Content.Add("[Page # of Pages #]")
objFooterArea.LineAlignment = BrickAlignment.Center
Dim objFooter As PageHeaderFooter = New PageHeaderFooter(Nothing, objFooterArea)
PrintableComponentLink1.PageHeaderFooter = objFooter
Me.PrintableComponentLink1.CreateDocument()
With Me.PrintableComponentLink1.PrintingSystem.PreviewFormEx
.MdiParent = Me.MdiParent
.Text = "Προεπισκόπιση εκτύπωσης - " & Me.Text
End With
Me.PrintableComponentLink1.ShowPreview()
Catch ex As Exception
Throw ex
End Try
End Sub
Εντάξει;