如何将Crystal Report中的文本对象字体的类型更改为条形码字体

Question

我想将数字转换为条形码格式，效果很好，并且字体文件位于程序的文件夹中，但是当转换将其打印为空时，任何计算机都没有在其中安装ttf文件< / p>

Dim path = Application.StartupPath & "\IDAutomationHC39M.ttf" '  
pfcbarcode.AddFontFile(path)
Dim br As CrystalDecisions.CrystalReports.Engine.TextObject = cr.Section5.ReportObjects("br")
br.ApplyFont(New Font(pfcbarcode.Families(0), 12, FontStyle.Regular))
br.Text = "*" & srchcombopatient.SelectedValue & "*"

我尝试使用普通字体（例如time new roman）和work，但是条形码不起作用，除非我们在计算机内部安装ttf文件 ttf文件与另一台计算机上的程序一起存在

Answer 1

是的，您需要安装安装时不会出现在Crystal Report中的字体。

除了默认字体，您需要在所有字体的特定位置添加该ttf文件。

这就是为什么，如果您在报表中使用条形码字体，则报表会搜索该字体，并且该字体未安装在您的水晶报表所在的PC中，因此不会显示。