ITextSharp，将字体分配给List中的单元格？

有没有办法将字体分配给添加到ITextsharp中表格单元格的列表。我相信它一定是直截了当的，但我错过了它。ITextSharp，将字体分配给List中的单元格？

Dim tblSignature As New PdfPTable(1) 
     tblSignature.WidthPercentage = 90.0F 

     Dim _baseFont As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.WINANSI, BaseFont.NOT_EMBEDDED) 

     Dim _bFont As New Font(_baseFont, 4, Font.ITALIC, Color.RED) 

     Dim cell As New PdfPCell(New Phrase(TheItem.Value, _bFont)) 

     TheParagraph.Font = _bFont 


     Dim list As New List(list.UNORDERED, 25.0F) 
     list.SetListSymbol("[ ]") 


     If ListItems.Count > 0 Then 
      For Each ListItem In .ListItems 
       //I have tried adding as chunk/phrase and applying font but no joy 
       //Item not added to cell 
       //list.Add(New Chunk(ListItem, _bFont)) 

       list.Add(ListItem) 
      Next 

      list.IndentationLeft = 5.0F 

      cell.AddElement(list) 
     End If 

     cell.Colspan = 6 
     cell.HorizontalAlignment = 0 
     cell.PaddingBottom = 5.0F 
     cell.PaddingLeft = 5.0F 
     cell.PaddingRight = 5.0F 

     '' add to doc 
     tblSignature.AddCell(cell) 

     TheParagraph.Add(tblSignature)

有谁知道我该如何改变这个，以便列表/单元格具有我在顶部设置的特定字体。

干杯

来源

2010-08-02 Israfel

的iTextSharp.text.ListItem对象具有iTextSharp.text.Font属性你可以设置。

来源

2010-08-02 20:56:00

血腥地狱，我直接应用一个字符串到列表而不是使用ListItem，非常感谢 – Israfel 2010-08-03 08:17:52

请注意，诸如新PdfPCell或新短语等声明不会与iTextSharp.text.List的add方法一起使用，但它们都与PdfPTable相当。我使用了iTextSharp.text.List作为我的软件的pdf打印出来的方式之一，我希望这对你也有用。

这是一个用vb.net（visual studio 2010和windows 7平台）和iTextSharp最新版本开发的软件之一的程序。用于pdf打印out.It演示如何我们可以manupulate iTextSharp.text.List的字体属性。

Dim doc1 As New Document() 

     Dim pathpdf As String = "C:/temp" 

     'path = ServerMapPath("PDFs"); 
     PdfWriter.GetInstance(doc1, New FileStream(pathpdf + "/Doc1.pdf", FileMode.Create)) 
     ' Now to begin actually working with the document, open it, , add a new list,and, then close it: 

     doc1.Open() 


Dim fnt1 As Font = FontFactory.GetFont(FontFactory.HELVETICA, 8, iTextSharp.text.Font.NORMAL) 


Dim fnt2 As Font = FontFactory.GetFont(FontFactory.HELVETICA, 14, iTextSharp.text.Font.BOLD) 


Dim fnt3 As Font = FontFactory.GetFont(FontFactory.HELVETICA, 12, iTextSharp.text.Font.NORMAL) 


Dim lst3 As New iTextSharp.text.List() 


lst3.SetListSymbol("") 


'add a list item in bold letters. 

Dim m_DataHeadOnly As String 

m_DataHeadOnly = "This is the itextsharp font setting with list" 

lst3.Add(New iTextSharp.text.ListItem(m_DataHeadOnly, fnt2)) 


doc1.add(lst3) 

doc1.close()

来源

2014-01-17 17:22:20

ITextSharp，将字体分配给List中的单元格？

回答

相关问题