如何将水晶报告中的文本对象字体类型更改为条形码字体

Question

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

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 & "*"

我尝试像时间新罗马这样的普通字体，并且可以工作，但除非我们在机器内安装 TTF 文件，否则条形码不起作用TTF文件与程序一起存在于另一台计算机中

Answer 1

是的，您需要安装安装时不会出现在水晶报告中的字体。

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

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