[Solved] ITextSharp Error: BC30311 Value of type List(Of IElement) cannot be converted to ArrayList

ilanocf

SOLVED CLOSED ACTIVE ANSWERED
User: ilanocf
Posted: on Aug 28, 2023 04:31 AM
Forum: ASP.Net Thirdparty controls
Answer: 2
Views: 717
Sample Code: Download

Hey guys,

It's been a while since I posted a question about iTextSharp but now I switched to version 5.5.13.3 so I could generate a QrCode, but I'm facing a problem that occurs in the line below:

Dim htmlarraylist As ArrayList = HTMLWorker.ParseToList(New StringReader(pData), Nothing)

The return message is:

Error BC30311 Value of type 'List(Of IElement)' cannot be converted to 'ArrayList'.

How can I fix this? Here's the code:

Code

VB.Net

Private Shared Function ImageExternaCell(ByVal path As String, ByVal scale As Single, ByVal align As Integer) As PdfPCell
    Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(New Uri(path))
    image.ScalePercent(scale)
    image.ScaleAbsolute(140.0F, 80.0F)
    Dim cell As New PdfPCell(image)
    cell.BorderColor = BaseColor.WHITE
    cell.VerticalAlignment = iTextSharp.text.pdf.PdfPCell.ALIGN_TOP
    cell.HorizontalAlignment = align
    cell.PaddingBottom = 0.0F
    cell.PaddingTop = 0.0F
    Return cell
End Function

Private Shared Function ImageCell(ByVal path As String, ByVal scale As Single, ByVal align As Integer) As PdfPCell
    Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(HttpContext.Current.Server.MapPath(path))
    image.ScalePercent(scale)
    Dim cell As New PdfPCell(image)
    cell.BorderColor = BaseColor.WHITE
    cell.VerticalAlignment = iTextSharp.text.pdf.PdfPCell.ALIGN_TOP
    cell.HorizontalAlignment = align
    cell.PaddingBottom = 0.0F
    cell.PaddingTop = 0.0F
    Return cell
End Function

Private Shared Function PhraseCell(ByVal phrase As Phrase, ByVal align As Integer) As PdfPCell
    Dim cell As New PdfPCell(phrase)
    cell.BorderColor = BaseColor.WHITE
    cell.VerticalAlignment = iTextSharp.text.pdf.PdfPCell.ALIGN_TOP
    cell.HorizontalAlignment = align
    cell.PaddingBottom = 2.0F
    cell.PaddingTop = 0.0F
    Return cell
End Function

Private Sub CriaRelatorioPDF(ByVal pCPF As String, ByVal pDados As String, ByVal pEmenta As String, ByVal pDataEmissao As String, ByVal pImgAssPresidente As String,
                        ByVal pImgAssCoordenador As String, ByVal pAssPresidente As String, ByVal pAssCoordenador As String, ByVal pSenha As String)

    Dim pCaminho As String
    pCaminho = Server.MapPath("pdfs")
    If File.Exists(pCaminho + "/" & pCPF & ".pdf") Then
        File.Delete(pCaminho + "/" & pCPF & ".pdf")
    End If

    'Atribuir fontes do servidor na aplicação
    FontFactory.RegisterDirectory("C:\WINDOWS\Fonts")
    Dim cellFont As iTextSharp.text.Font = FontFactory.GetFont("Soleto-Light", 16.0F, iTextSharp.text.Font.NORMAL)
    Dim cellFont3 As iTextSharp.text.Font = FontFactory.GetFont("Soleto-Light", 9.0F, 0, BaseColor.BLACK)

    'Criar uma instância de document
    Dim doc As New Document(iTextSharp.text.PageSize.A4.Rotate, 20, 20, 20, 20)
    PdfWriter.GetInstance(doc, New FileStream(pCaminho + "/" & pCPF & ".pdf", FileMode.Create))

    'hfArquivo.Value = "pdfs/" & pCPF & ".pdf"

    Dim phraseDados As Phrase = Nothing 'Texto
    Dim phraseAss1 As Phrase = Nothing 'Frase da Assinatura 1
    Dim cellAss1 As PdfPCell = Nothing 'Célula da assinatura 1
    Dim cellImg1 As PdfPCell = Nothing 'Célula da imagem da assinatura 1
    Dim phraseAss2 As Phrase = Nothing 'Frase da Assinatura 2
    Dim cellAss2 As PdfPCell = Nothing 'Célula da assinatura 2
    Dim cellImg2 As PdfPCell = Nothing 'Célula da imagem da assinatura 2

    'Criar tabela ====================================================================
    Dim table1 As PdfPTable = New PdfPTable(New Single() {10, 80, 10})
    table1.DefaultCell.HorizontalAlignment = Element.ALIGN_JUSTIFIED 'Justificar texto
    table1.SpacingBefore = 220.0F 'Definir altura onde a tabela será criada
    table1.DefaultCell.BorderWidth = 0 'Largura da borda da tabela 1
    table1.DefaultCell.FixedHeight = 50.0F 'Altura da tabela 1
    table1.AddCell(" ") 'Coluna 1, Linha 1 
<span style =""color:" #ff0000;"="">Dim htmlarraylist As ArrayList = HTMLWorker.ParseToList(New StringReader(pDados), Nothing)</span> 
phraseDados = New Phrase()
    For k As Integer = 0 To htmlarraylist.Count - 1
        phraseDados.Add(CType(htmlarraylist(k), IElement))
        Dim parapTexto As Paragraph = New Paragraph(phraseDados)
        parapTexto.SetLeading(1.0F, 1.5F)
        parapTexto.Alignment = ALIGN_JUSTIFIED
        Dim cell As PdfPCell = New PdfPCell()
        cell.BorderWidth = 0
        cell.FixedHeight = 110.0F ' ALTURA DA CÉLULA
        cell.AddElement(parapTexto)
        table1.AddCell(cell) 'Coluna 2, Linha 1
    Next
    table1.AddCell(" ") 'Coluna 3, Linha 1
    Dim table2 As PdfPTable = New PdfPTable(New Single() {10, 80, 10})
    table2.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER 'Centralizar
    table2.DefaultCell.BorderWidth = 0 'Largura da borda da tabela 2
    table2.DefaultCell.FixedHeight = 50.0F 'Altura da tabela 2
    table2.AddCell(" ") 'Coluna 1, Linha 1
    table2.AddCell(pDataEmissao) 'Coluna 2, Linha 1
    table2.AddCell(" ") 'Coluna 3, Linha 1
    Dim table3 As PdfPTable = New PdfPTable(New Single() {10, 30, 10, 30, 10})
    phraseAss1 = New Phrase()
    phraseAss1.Add(New Chunk(pAssPresidente & vbLf & "Diretor Presidente", FontFactory.GetFont("Soleto-Light", 9, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)))
    phraseAss2 = New Phrase()
    phraseAss2.Add(New Chunk(pAssCoordenador & vbLf & "Coordenador(a)", FontFactory.GetFont("Soleto-Light", 9, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)))
    table3.SpacingBefore = 20.0F 'Definir altura onde a tabela será criada

    table3.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER 'Centralizar texto
    table3.DefaultCell.BorderWidth = 0 'Largura da borda da tabela

    table3.AddCell("") 'Coluna 1, Linha 1
    table3.AddCell("") 'Coluna 2, Linha 1
    table3.AddCell(" ") 'Coluna 3, Linha 1
    table3.AddCell(" ") 'Coluna 4, Linha 1
    table3.AddCell(" ") 'Coluna 5, Linha 1

    table3.AddCell("") 'Coluna 1, Linha 1
    table3.AddCell("_______________________________") 'Coluna 2, Linha 1
    table3.AddCell(" ") 'Coluna 3, Linha 1
    table3.AddCell("_______________________________") 'Coluna 4, Linha 1
    table3.AddCell(" ") 'Coluna 5, Linha 1

    table3.AddCell(" ") 'Coluna 1, Linha 2
    table3.AddCell(phraseAss1) 'Coluna 2, Linha 2
    table3.AddCell(" ") 'Coluna 3, Linha 2
    table3.AddCell(phraseAss2) 'Coluna 4, Linha 2
    table3.AddCell(" ") 'Coluna 5, Linha 2
    table3.AddCell(" ") 'Coluna 1, Linha 2
    table3.AddCell("") 'Coluna 2, Linha 2
    table3.AddCell(" ") 'Coluna 3, Linha 2
    table3.AddCell("") 'Coluna 4, Linha 2
    table3.AddCell(" ") 'Coluna 5, Linha 2

    'Definindo a imagem de fundo do documento
    Dim imageFilePath As String = Server.MapPath("~/imagens/Cedula_Certificado_01.jpg")
    Dim jpg As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imageFilePath)
    jpg.ScaleToFit(850, 650)
    jpg.Alignment = iTextSharp.text.Image.UNDERLYING
    jpg.SetAbsolutePosition(0, 0)

    'Definindo imagem da assinatura 1
    Dim imageFilePath2 As String = pImgAssPresidente
    Dim jpgAssina1 As iTextSharp.text.Image

    If Trim(imageFilePath2) <> "" Then
        jpgAssina1 = iTextSharp.text.Image.GetInstance(imageFilePath2)
        jpgAssina1.ScalePercent(8.0F)
        jpgAssina1.Alignment = iTextSharp.text.Image.UNDERLYING
        'jpgAssina1.SetAbsolutePosition(155, 90)
        jpgAssina1.SetAbsolutePosition(180, 90)
    End If

    'Definindo imagem da assinatura 2
    Dim imageFilePath3 As String = pImgAssCoordenador
    Dim jpgAssina2 As iTextSharp.text.Image

    If Trim(imageFilePath3) <> "" Then
        jpgAssina2 = iTextSharp.text.Image.GetInstance(imageFilePath3)
        jpgAssina2.ScalePercent(8.0F)
        jpgAssina2.Alignment = iTextSharp.text.Image.UNDERLYING
        'jpgAssina2.SetAbsolutePosition(440, 90)
        jpgAssina2.SetAbsolutePosition(465, 90)
    End If

    '=================================================================================

    doc.Open()
    doc.Add(jpg)
    If Trim(imageFilePath2) <> "" Then doc.Add(jpgAssina1) 'Assinatura do Presidente
    If Trim(imageFilePath3) <> "" Then doc.Add(jpgAssina2) 'Assinatura do Coordenador
    doc.Add(New Paragraph(" "))
    doc.Add(table1)
    doc.Add(New Paragraph(" "))
    doc.Add(table2)
    doc.Add(table3)
    doc.NewPage()
    doc.Add(New Paragraph(" "))
    doc.Add(New Paragraph(" "))

    Dim tbEmenta As PdfPTable = New PdfPTable(New Single() {100})
    tbEmenta.DefaultCell.HorizontalAlignment = Element.ALIGN_JUSTIFIED 'Justificar
    tbEmenta.DefaultCell.BorderWidth = 0
    Dim phraseEmenta = New Phrase()

    'MOSTRAR TEXTO HTML FORMATADO - EMENTA
    Dim vlEmenta As String = pEmenta.Replace(System.Environment.NewLine, "<br />")


    'Dim html As ArrayList = iTextSharp.text.html.simpleparser.HTMLWorker.ParseToList(New StringReader(vlEmenta), Nothing)
    Dim html As List(Of iTextSharp.text.IElement)
    html = HTMLWorker.ParseToList(New StreamReader(vlEmenta), Nothing)
    For k As Integer = 0 To html.Count - 1
        phraseEmenta.Add(CType(html(k), IElement))
    Next

    Dim parapEmenta As Paragraph = New Paragraph(phraseEmenta)
    parapEmenta.SetLeading(1.0F, 0.8F) 'Esta linha regula o espaçamento entre linhas.
    Dim cellEmenta As PdfPCell = New PdfPCell()
    cellEmenta.BorderWidth = 0
    parapEmenta.Alignment = ALIGN_JUSTIFIED
    cellEmenta.AddElement(parapEmenta)
    tbEmenta.AddCell(cellEmenta)
    doc.Add(tbEmenta)

    ' #####################################################################################
    'GERA O CÓDIGO DE BARRAS

    'Dim barcodeQRCode As BarcodeQrCode = New BarcodeQrCode("http://www.google.com.br", 1000, 1000, Nothing)
    'Dim codeQRImage As Image = barcodeQRCode.GetImage()
    'codeQRImage.ScaleAbsolute(20, 200)
    'doc.Add(codeQRImage)


    'If ViewState("ImageBase64") IsNot Nothing Then
    '    Dim base64 As String = DirectCast(ViewState("ImageBase64"), String)
    '    Dim imagebytes As Byte() = Convert.FromBase64String(base64)
    '    Dim imgQrCode As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagebytes)
    '    doc.Add(imgQrCode)
    'End If

    ' #####################################################################################

    'doc.NewPage()


    Dim barcodeQRCode As BarcodeQRCode = New BarcodeQRCode("http://www.google.com.br", 1000, 1000, Nothing)
    Dim codeQRImage As iTextSharp.text.Image = barcodeQRCode.GetImage()
    codeQRImage.ScaleAbsolute(20, 200)
    doc.Add(codeQRImage)
    doc.Close()

    ' =======================================================================================

    ' #####################################################################################
    ' CRIAR SENHA NO DOCUMENTO
    ' #####################################################################################

    If Trim(pSenha) <> "" Then
        Dim bytes As Byte() = File.ReadAllBytes(pCaminho + "/" & pCPF & ".pdf")
        Using input As New MemoryStream(bytes)
            Using output As New MemoryStream()
                Dim password As String = pSenha
                Dim reader As New PdfReader(input)
                PdfEncryptor.Encrypt(reader, output, True, password, password, PdfWriter.ALLOW_SCREENREADERS)
                bytes = output.ToArray()
            End Using
        End Using
        Response.Clear()
        Response.ContentType = "application/pdf"
        Response.AddHeader("Content-Disposition", "attachment; filename=Employee.pdf")
        Response.ContentType = "application/pdf"
        Response.Buffer = True
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        Response.BinaryWrite(bytes)
        Response.End()
        Response.Close()

    End If

    ' #####################################################################################

    If File.Exists(pCaminho + "/" & pCPF & ".pdf") Then
        'Response.Redirect("~/aluno/pdfs/" & pCPF & ".pdf")
        Dim modified_URL As String = "window.open('" & "pdfs/" & pCPF & ".pdf" & "', '_blank');"
        ScriptManager.RegisterStartupScript(Me, GetType(String), "OPEN_WINDOW", modified_URL, True)
    End If
End Sub

Yours sincerely,

Ilano.

Download FREE API for Word, Excel and PDF in ASP.Net

dharmend...

0 6

Reply
ANSWER
User: dharmendr
Replied: on Aug 28, 2023 11:33 AM
Report

The is the code.

Dim htmlarraylist As List(Of IElement) = HTMLWorker.ParseToList(New StringReader(pDados), Nothing)

Refer below example.

HTML

<asp:Label ID="LbMensagem" runat="server" />

Namespaces

using System.Data;
using System.IO;
using iTextSharp.text;
using iTextSharp.text.pdf;
using iTextSharp.text.html.simpleparser;

VB.Net

Imports System.Data
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.html.simpleparser
Imports iTextSharp.text.pdf

Code

protected void Page_Load(object sender, System.EventArgs e)
{
    if (!IsPostBack)
    {
        PovoaDados();
    }
}

private void PovoaDados()
{
    DataTable dt = new DataTable();
    dt.Columns.AddRange(new DataColumn[]
    {
        new DataColumn("ID"),
        new DataColumn("PESSOAID"),
        new DataColumn("EDITALITEMID"),
        new DataColumn("CURSOID"),
        new DataColumn("CPFCNPJ"),
        new DataColumn("EMENTA")
    });
    dt.Rows.Add("1", "1", "IT", ".Net", "ABC", "123");

    DataSet Ds = new DataSet();
    Ds.Tables.Add(dt);
    if (Ds != null)
    {
        string html = " &lt;div style=&quot;text-align: justify;&quot;&gt; &lt;span style=&quot;font-family: Arial;color: red;font-weight:bold;&quot; &gt; Food Education in Self Care; Macronutrients and their Functions;";
        html += "Chrononutrition;Food Behavior;Functional Foods;Foods in Disease Prevention;Learning to Read Labels;Preservation of Food through Bleaching.&lt;/span&gt;&lt;/div&gt;";
        if (Ds.Tables[0].Rows.Count > 0)
        {
            CriarRelatorio(Ds.Tables[0].Rows[0]["CPFCNPJ"].ToString(), Ds.Tables[0].Rows[0]["EMENTA"].ToString() + Server.HtmlDecode(html));
        }
        else if (Ds.Tables[0].Rows.Count == 0)
        {
            LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>";
        }
    }
    else if (Ds == null)
    {
        LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>";
    }
}

private void CriarRelatorio(string pCPF, string pDados)
{
    string pCaminho;
    pCaminho = Server.MapPath("pdfs");
    if (File.Exists(pCaminho + "/" + pCPF + ".pdf"))
        File.Delete(pCaminho + "/" + pCPF + ".pdf");
    // Atribuir fontes do servidor na aplicação
    FontFactory.RegisterDirectory(@"C:\WINDOWS\Fonts");
    Font cellFont = FontFactory.GetFont("Arial", 16.0F, Font.NORMAL);
    Font cellFont3 = FontFactory.GetFont("Arial", 9.0F, 0, BaseColor.BLACK);
    // Criar uma instância de document
    Document doc = new Document(PageSize.A4, 0, 0, 0, 0);
    PdfWriter.GetInstance(doc, new FileStream(pCaminho + "/" + pCPF + ".pdf", FileMode.Create));
    doc.Open();
    // Convert the html and add to document.
    List<IElement> htmlarraylist = HTMLWorker.ParseToList(new StringReader(pDados), null);
    for (int k = 0; k < htmlarraylist.Count; k++)
    {
        doc.Add((IElement)htmlarraylist[k]);
    }

    doc.Close();
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then PovoaDados()
End Sub

Private Sub PovoaDados()
    Dim dt As DataTable = New DataTable()
    dt.Columns.AddRange(New DataColumn() {New DataColumn("ID"), New DataColumn("PESSOAID"), New DataColumn("EDITALITEMID"), New DataColumn("CURSOID"), New DataColumn("CPFCNPJ"), New DataColumn("EMENTA")})
    dt.Rows.Add("1", "1", "IT", ".Net", "ABC", "123")
    Dim Ds As DataSet = New DataSet()
    Ds.Tables.Add(dt)
    If Ds IsNot Nothing Then
        Dim html As String = " &lt;div style=&quot;text-align: justify;&quot;&gt; &lt;span style=&quot;font-family: Arial;color: red;font-weight:bold;&quot; &gt; Food Education in Self Care; Macronutrients and their Functions;"
        html += "Chrononutrition;Food Behavior;Functional Foods;Foods in Disease Prevention;Learning to Read Labels;Preservation of Food through Bleaching.&lt;/span&gt;&lt;/div&gt;"
        If Ds.Tables(0).Rows.Count > 0 Then
            CriarRelatorio(Ds.Tables(0).Rows(0)("CPFCNPJ").ToString(), Ds.Tables(0).Rows(0)("EMENTA").ToString() + Server.HtmlDecode(html))
        ElseIf Ds.Tables(0).Rows.Count = 0 Then
            LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>"
        End If
    ElseIf Ds Is Nothing Then
        LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>"
    End If
End Sub

Private Sub CriarRelatorio(ByVal pCPF As String, ByVal pDados As String)
    Dim pCaminho As String
    pCaminho = Server.MapPath("pdfs")
    If File.Exists(pCaminho & "/" & pCPF & ".pdf") Then File.Delete(pCaminho & "/" & pCPF & ".pdf")
    FontFactory.RegisterDirectory("C:\WINDOWS\Fonts")
    Dim cellFont As Font = FontFactory.GetFont("Arial", 16.0F, Font.NORMAL)
    Dim cellFont3 As Font = FontFactory.GetFont("Arial", 9.0F, 0, BaseColor.BLACK)
    Dim doc As Document = New Document(PageSize.A4, 0, 0, 0, 0)
    PdfWriter.GetInstance(doc, New FileStream(pCaminho & "/" & pCPF & ".pdf", FileMode.Create))
    doc.Open()
    Dim htmlarraylist As List(Of IElement) = HTMLWorker.ParseToList(New StringReader(pDados), Nothing)
    For k As Integer = 0 To htmlarraylist.Count - 1
        doc.Add(CType(htmlarraylist(k), IElement))
    Next
    doc.Close()
End Sub

Screenshot

dharmend...

0 9

Reply
ANSWER
User: dharmendr
Replied: on Aug 29, 2023 05:35 AM
Report

Refer the code.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then PovoaDados()
End Sub

Private Sub PovoaDados()
    Dim dt As DataTable = New DataTable()
    dt.Columns.AddRange(New DataColumn() {New DataColumn("ID"), New DataColumn("PESSOAID"), New DataColumn("EDITALITEMID"), New DataColumn("CURSOID"), New DataColumn("CPFCNPJ"), New DataColumn("EMENTA")})
    dt.Rows.Add("1", "1", "IT", ".Net", "ABC", "123")
    Dim Ds As DataSet = New DataSet()
    Ds.Tables.Add(dt)
    If Ds IsNot Nothing Then
        Dim html As String = " &lt;div style=&quot;text-align: justify;&quot;&gt; &lt;span style=&quot;font-family: Arial;color: red;font-weight:bold;&quot; &gt; Food Education in Self Care; Macronutrients and their Functions;"
        html += "Chrononutrition;Food Behavior;Functional Foods;Foods in Disease Prevention;Learning to Read Labels;Preservation of Food through Bleaching.&lt;/span&gt;&lt;/div&gt;"
        If Ds.Tables(0).Rows.Count > 0 Then
            CriarRelatorio(Ds.Tables(0).Rows(0)("CPFCNPJ").ToString(), Ds.Tables(0).Rows(0)("EMENTA").ToString() + Server.HtmlDecode(html))
        ElseIf Ds.Tables(0).Rows.Count = 0 Then
            LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>"
        End If
    ElseIf Ds Is Nothing Then
        LbMensagem.Text = "<div class='alert alert-danger'>Nenhuma informação foi encontrada.</div>"
    End If
End Sub

Private Sub CriarRelatorio(ByVal pCPF As String, ByVal pDados As String)
    Dim pCaminho As String
    pCaminho = Server.MapPath("pdfs")
    If File.Exists(pCaminho & "/" & pCPF & ".pdf") Then File.Delete(pCaminho & "/" & pCPF & ".pdf")
    FontFactory.RegisterDirectory("C:\WINDOWS\Fonts")
    Dim cellFont As Font = FontFactory.GetFont("Arial", 16.0F, Font.NORMAL)
    Dim cellFont3 As Font = FontFactory.GetFont("Arial", 9.0F, 0, BaseColor.BLACK)
    Dim doc As Document = New Document(PageSize.A4, 0, 0, 0, 0)
    PdfWriter.GetInstance(doc, New FileStream(pCaminho & "/" & pCPF & ".pdf", FileMode.Create))
    doc.Open()
    Dim phraseEmenta = New Phrase()
    Dim list As List(Of IElement) = HTMLWorker.ParseToList(New StringReader(pDados), Nothing)
    For Each element As iTextSharp.text.IElement In list
        phraseEmenta.Add(element)
    Next
    Dim tbEmenta As PdfPTable = New PdfPTable(New Single() {100})
    tbEmenta.DefaultCell.HorizontalAlignment = Element.ALIGN_JUSTIFIED 'Justificar
    tbEmenta.DefaultCell.BorderWidth = 0
    Dim parapEmenta As Paragraph = New Paragraph(phraseEmenta)
    parapEmenta.SetLeading(1.0F, 0.8F) 'Esta linha regula o espaçamento entre linhas.
    Dim cellEmenta As PdfPCell = New PdfPCell()
    cellEmenta.BorderWidth = 0
    cellEmenta.AddElement(parapEmenta)
    tbEmenta.AddCell(cellEmenta)
    doc.Add(tbEmenta)

    doc.Close()
End Sub

I agree, here is the link: https://www.e-iceblue.com/Introduce/spire-office-for-net-free.html

[Solved] ITextSharp Error: BC30311 Value of type List(Of IElement) cannot be converted to ArrayList

Company

Explore

Follow us

Contact Us