使用itextsharp添加粗体和下划线的文本/单元格

Question

我想使用itextsharp在单元格中添加一个文本，该文本将加粗并加下划线。 我正在创建这样的字体：

Dim mssanserif As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Fonts), "MICROSS.TTF")
Dim mssanserifBaseFont As BaseFont = BaseFont.CreateFont(mssanserif, BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
Dim Font7 As Font = New Font(mssanserifBaseFont, 7, iTextSharp.text.Font.NORMAL)
Dim Font7_ As Font = New Font(mssanserifBaseFont, 7, iTextSharp.text.Font.UNDERLINE)
Dim FontBold8 As Font = New Font(mssanserifBaseFont, 8, iTextSharp.text.Font.BOLD)
Dim Font7bold_ As Font = New Font(mssanserifBaseFont, 7, iTextSharp.text.Font.BOLD And iTextSharp.text.Font.UNDERLINE)

但是当我使用Font7bold_

时

iphrase = New Phrase()
text = "bla bla bla"
iphrase.Add(New Chunk(text, Font7bold_))
c = New PdfPCell(iphrase)
Table1.AddCell(c)

我得到一个大胆的文字，但带有删除线的风格而没有加下划线。

有什么建议吗？ 感谢。