Private Sub btnAusdruck_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnAusdruck.Click
 
        rptDoc.FileName = "..\..\Reports\repPruefbericht.rpt"
 
        Dim usr As String = "xxxxx"                    '"DataReader"
        Dim pwd As String = "xxxxx"                 
        Dim svr As String = "xxxxx"          'ODBC-DSN
        Dim db As String = "xxxxxx"
 
        rptDoc.SetDatabaseLogon(usr, pwd, svr, db)
 
        'Filterung auf ein bestimmtes Material
        rptDoc.DataDefinition.RecordSelectionFormula = "{tblMaterial.strMaID} =" & _
          "'FB004H'"
 
 
'Felder im Bericht befüllen
        rptDoc.DataDefinition.FormulaFields("Kennwort").Text = "'Test-Kennwort'"
        rptDoc.DataDefinition.FormulaFields("AuftNr").Text = "'Auftr. 123'"
        rptDoc.DataDefinition.FormulaFields("BestNr").Text = "'Best. 456'"
        rptDoc.DataDefinition.FormulaFields("SpezNr").Text = "'Spez. 99'"
 
        'Ausdruck über das entsprechende Report Document Object
        rptDoc.PrintToPrinter(1, False, 1, 999)         'Anzahl Seiten, ...
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET