Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CustomersTableAdapter.Fill(Me.NwindDataSet.Customers)

        Me.RadGridView1.DataSource = Me.CustomersBindingSource
        Me.RadGridView1.BestFitColumns()
    End Sub

    Private Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
 
        Dim document As New RadPrintDocument()
        document.AssociatedObject = Me.RadGridView1

        Dim printStyle As GridPrintStyle = New GridPrintStyle(RadGridView1)
        Dim renderer As TableViewDefinitionPrintRenderer = New TableViewDefinitionPrintRenderer(RadGridView1)
        renderer.PrintPages.Add(RadGridView1.Columns(0), RadGridView1.Columns(2), RadGridView1.Columns(5))
        renderer.PrintPages.Add(RadGridView1.Columns(0), RadGridView1.Columns(1), RadGridView1.Columns(9))
        renderer.PrintPages.Add(RadGridView1.Columns(8), RadGridView1.Columns(7))
        renderer.PrintPages.Add(RadGridView1.Columns(3), RadGridView1.Columns(4), RadGridView1.Columns(6))
        printStyle.PrintRenderer = renderer
        RadGridView1.PrintStyle = printStyle

        Dim dialog As New RadPrintPreviewDialog(document) 
        dialog.ShowDialog() 

    End Sub