Public Sub GeneriereBericht(ByVal Bericht As ReportDocument, ByVal Werte As _
      Array)
 
        Dim Sektions As Sections
        Dim Seiten As Integer
 
        Try
 
            Dim ParameterCollection As New _
              CrystalDecisions.Shared.ParameterValues
 
            Sektions = Bericht.ReportDefinition.Sections
            Sektions.Item("Section3").Height = 2000
 
            For i As Integer = 0 To Werte.GetUpperBound(0)
 
                Dim Wert As New CrystalDecisions.Shared.ParameterDiscreteValue
 
                Wert.Value = (i + 1) & ".  (" & Werte(i).Fehlernummer & "):  " _
                  & Werte(i).Fehlerbeschreibung
                ParameterCollection.Add(Wert)
                Bericht.DataDefinition.ParameterFields("Parameter" & _
                  i).ApplyCurrentValues(ParameterCollection)
 
                Sektions.Item("Section3").Height += 500
 
            Next

Bericht.PrintToPrinter(1, False, 0, 1)