Try
            ' Neue PDF-Datei initalisieren
            Dim Report As Report = New Report(New PdfFormatter)
            Dim Seite As Page = New Page(Report)
 
            ' Größen des Blattes festlegen
            Seite.rHeightMM = 210 ' 210 mm hoch
            Seite.rWidthMM = 147  ' 147 mm breit
 
            ' Schriftarten, Farbe und Einstellungen
            Dim SchriftArt As FontDef = New FontDef(Report, _
              FontDef.StandardFont.Helvetica)
            Dim NormaleSchrift As FontProp = New FontPropMM(SchriftArt, 2, _
            Color.Black)
            Dim KDNRSchrift As FontProp = New FontPropMM(SchriftArt, 10, _
            Color.Gray)
 
            '=-> Labels hinzufügen
 
            ' Anrede
            Seite.AddCB_MM(63, 23, New RepString(NormaleSchrift, "Frau"))
 
 
            ' Speichern und Anzeigen
 
            If Print = True Then
                RT.PrintPDF(Report)
 
            Else
                RT.ViewPDF(Report, "Paketschein-" & Kundennummer & ".pdf")
            End If
 
            Return True
        Catch ex As Exception
            Return False
        End Try