Private Function getPageSize(DocInfo As PageInfo) As Rectangle
        Dim cm_breite As Decimal = 1
        Dim cm_hoehe As Decimal = 1
        Dim faktor As Decimal = 1
        Select Case PageInfo.  <--- HIER HAB ICH NICHTS ZUR AUSWAHL #####
            Case PageSize.A4
                cm_breite = 21.0
                cm_hoehe = 29.7
            Case PageSize.A5
                cm_breite = 21.0 / 2
                cm_hoehe = 29.7 / 2
            Case PageSize.A6
                cm_breite = 21.0 / 4
                cm_hoehe = 29.7 / 4
        End Select
        Select Case DPI
            Case PageDPI.DPI_72
                faktor = 72 / DPI2cm
            Case PageDPI.DPI_150
                faktor = 150 / DPI2cm
            Case PageDPI.DPI_300
                faktor = 300 / DPI2cm
        End Select
        If Landscape = False Then
            Return New Rectangle(cm_breite * faktor, cm_hoehe * faktor)
        Else
            Return New Rectangle(cm_hoehe * faktor, cm_breite * faktor)
        End If
    End Function
 
    Private Class PageInfo
        Public Enum PageSize
            A4
            A5
            A6
        End Enum
 
        Public Enum PageFormat
            Hochformat
            Querformat
        End Enum
 
        Public Enum PageDPI
            DPI_72
            DPI_150
            DPI_300
        End Enum
 
        Private ps As PageSize
 
        Public Property Size() As PageSize
            Get
                Return ps
            End Get
            Set(ByVal value As PageSize)
                ps = value
            End Set
        End Property
 
        Private pf As String
        Public Property Format() As String
            Get
                Return pf
            End Get
            Set(ByVal value As String)
                pf = value
            End Set
        End Property
 
        Private pd As PageDPI
        Public Property Dpi() As PageDPI
            Get
                Return pd
            End Get
            Set(ByVal value As PageDPI)
                pd = value
            End Set
        End Property
 
 
        Public Sub New(Size As PageSize, Format As PageFormat, DPI As PageDPI)
            ps = Size
            pf = Format
            pd = DPI
        End Sub
 
    End Class
End Class