由于项目的需求,需要利用水晶报表直接导出pdf文件,而不是通过虚拟打印的方式。在测试的时候发现,同样的报表用不同的方式得到的pdf文件在字体的大小上有明显的区别。因为要用多国语言的文字,所以字体用的是Arial Unicode MS。
通过虚拟打印机打印输出PDF的代码如下:
Dim rptTest As New RptTest1
CType(rptTest.ReportDefinition.ReportObjects("txtTest001"), TextObject).Text = "TestLabel"
rptTest.SetDataSource(testList)