Imprimir N Titulos

[Mario -]

Conforme já expliquei sou novo nas Lib ACBr mas estou gostando muito, portanto gostaria de postar aqui a forma que fiz para N Titulos usando as Classes.

O codigo abaixo se alguém achar bom, por favor pode otimizar.

Parabéns a equipe ACBr.

    Dim Boleto As New ACBrLib.Boleto.ACBrBoleto
    Dim Titulo As New ACBrLib.Boleto.Titulo
    Dim Titulos As New List(Of ACBrLib.Boleto.Titulo)
    
    Dim N As Int32 = 1
    Boleto.LimparLista()
    Call DataRowObject(drConta, Boleto.Config.Banco, "Banco.") 'DataColumn.name=Prefixo+Property.Name, caso seja necessário
    Call DataRowObject(drConta, Boleto.Config.Cedente, "Conta.")
    Call DataRowObject(drConta, Boleto.Config.Cedente, "Cedente.")

    For Each dr As DataRow In tbCompromisso.Rows
        Titulo = New ACBrLib.Boleto.Titulo
        Titulo.NossoNumero = N.ToString("0000000000")
        Call DataRowObject(dr, Titulo, "Titulo.")
        Call DataRowObject(dr, Titulo.Sacado, "Sacado.")
        Call DataRowObject(dr, Titulo.Sacado.Avalista, "Sacado.Avalista.")

        Titulos.Add(Titulo)
    Next

    Boleto.IncluirTitulos(Titulos.ToArray())
    Boleto.Imprimir()
    
    
    'Função para popular os Types
    
        Private Shared Sub DataRowObject(dr As DataRow, sender As Object, Optional ByVal Prefixo As String = "")
        'ler propriedades - obter valor em datarow.column - atribuir valor a propriedade
        Dim T As Type = sender.GetType()
        Dim value As Object, Col As String, obj As Object

        For Each P In T.GetProperties(BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.NonPublic)
            Select Case True
                Case dr.Table.Columns(Prefixo & P.Name) IsNot Nothing
                    Col = Prefixo & P.Name
                Case dr.Table.Columns(P.Name) IsNot Nothing
                    Col = P.Name
                Case Else : Continue For
            End Select

            If String.IsNullOrEmpty(dr(Col).ToString) Then Continue For

            value = P.GetValue(sender)

            Select Case P.PropertyType()
                Case GetType(Integer)
                    Integer.TryParse(dr(Col), value)
                Case GetType(Boolean)
                    value = CBool(Integer.TryParse(dr(Col), value))
                Case GetType(String)
                    value = dr(Col).ToString
                Case GetType(System.Decimal), GetType(System.Double)
                    Decimal.TryParse(dr(Col), NumberStyles.Number, NumberFormatInfo, value)
                Case GetType(System.DateTime)
                    DateTime.TryParseExact(dr(Col), {"dd/MM/yyyy"}, Nothing, DateTimeStyles.AssumeLocal, value)
                Case Else
                    Select Case True
                        Case P.PropertyType.BaseType Is (GetType(System.Enum))
                            Integer.TryParse(dr(Col), value)
                        Case P.PropertyType.FullName.Contains("System.DateTime") 'este case é devido não saber ainda como pegar classe Nullable-datetime
                            DateTime.TryParseExact(dr(Col), {"dd/MM/yyyy"}, Nothing, DateTimeStyles.AssumeLocal, value)
                        Case P.PropertyType.FullName.Contains("System.Decimal") 'este case é devido não saber ainda como pegar classe Nullable-datetime
                            Decimal.TryParse(dr(Col), NumberStyles.Number, NumberFormatInfo, value)
                        Case Else
                            value = New Generic.List(Of String) From {dr(Col).ToString}
                            Continue For

                    End Select
            End Select
            P.SetValue(sender, value)
        Next

    End Sub

    
 

A liguagem utilizada VB.NET VS 2019