.net – iTextSharp中的Unicode符号

我试图在我的PDF文件中使用带有 iTextSharp的Unicode符号.

Dim base As BaseFont = BaseFont.CreateFont("C:\\WINDOWS\\Fonts\\WINGDING.TTF", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)

Dim wd As Font = New Font(base, 12, Font.NORMAL, BaseColor.BLACK)
phrase = New Phrase("q", wd)

这是Wingding的Q.Key.但在PDF文件中,它无法正常工作.
它只是打印Char应该是什么.

错误在哪里?

我只是做了以下工作,它完全按照应有的方式工作. Wingdings字体显示在两个单词之间,作为带有右下角阴影的方框.唯一的事情是我实际上无法让Wingdings字体真正嵌入自己,我相信它是一个iTextSharp隐式规则,因为它假定无处不在.我尝试使用WINGDNG2.TTF并正确嵌入.

你可能没有正确添加短语吗?或者你是否在没有Wingdings的机器上打开它?

''//Create a new document
    Dim Doc As New iTextSharp.text.Document(PageSize.LETTER, 20, 20, 20, 20)
    ''//Store the document on the desktop
    Dim writer = PdfWriter.GetInstance(Doc, New FileStream(Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Output.pdf"), FileMode.Create, FileAccess.Write, FileShare.Read))

    ''//Open the PDF for writing
    Doc.Open()

    ''//Insert a page
    Doc.NewPage()

    ''//Add a regular text block using the default font
    Dim Phrase = New Phrase("Hello")
    Doc.Add(Phrase)


    ''//Create our base font
    Dim base As BaseFont = BaseFont.CreateFont("C:\Windows\Fonts\wingding.ttf", BaseFont.CP1252, BaseFont.EMBEDDED)
    ''//Create our usable font
    Dim wd As Font = New Font(base, 12, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)

    ''//Add a text block using Wingdings
    Phrase = New Phrase("q", wd)
    Doc.Add(Phrase)

    ''//Add a trailing text block using the default font again
    Phrase = New Phrase("Bye")
    Doc.Add(Phrase)

    ''//Close the PDF
    Doc.Close()
相关文章
相关标签/搜索