Printing problem

[angelica]

Hi ,

Im trying to retrieve a class for printing I had used a couple of year ago, which aint working now. the class is attached cos its too long to post it here.
can someone help it out with this please.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GridPrinter = New DataGridPrinter(Me.DataGrid4)
       If GridPrinter Is Nothing Then

        End If

      With GridPrinter
           .HeaderText = lblItemsCounted.Text
           (Me.ComboBox_ColumnHeaderBrush.SelectedItem, Brush)
            .PagesAcross = 1
           .PrintDocument.Print()

       End With
   End Sub