Dim PrintDocument1 As New System.Drawing.Printing.PrintDocument
 
        With PrintDocument1
            .DocumentName = strListName
            AddHandler .PrintPage, AddressOf PrintReport
            .Print()
        End With

    Private Sub PrintReport(ByVal sender As Object, ByVal _ 
                          e As System.Drawing.Printing.PrintPageEventArgs)                         
    Code......

        With PrintDocument1
            .DocumentName = strListName
            AddHandler .PrintPage, AddressOf PrintReport(ds1, ds2, ?, e)
            .Print()
        End With
-------------------------------------------------------------------------------_
  ----------------------------
 
    Private Sub PrintReport(ByVal sender As Object, ByVal _ 
                         ByVal dsX As DataSet, ByVal dtX As DataTable, _ 
                         e as System.Drawing.Printing.PrintPageEventArgs)