问题描述
我正在尝试获取字符之间的字符间距。我熟悉Crystal Report在字体格式属性下具有的功能。但是,无法在SSRS中找到任何解决方案。
我正在尝试在一英寸内达到10位数字。我正在使用尺寸为12pt的OCR A Extended,但是它没有得到期望的结果。
水晶报表功能:
我也尝试获取代码,但是SPACE函数不支持小数。
Public Function CompletePrefAddress (ByVal dbField1 As String,intSpacesBetween As Decimal) As String
Dim i As Integer
Dim strOriginal As String
Dim strNew As String
strOriginal = dbField1
strNew = ""
For i = 1 To Len(strOriginal)
strNew = strNew & Space(intSpacesBetween) & Mid(strOriginal,i,1)
Next i
Return strNew
End Function
解决方法
每种字体都有自己的字符间距。但是,要获得10英寸,我必须使用Mid(,n,1)将整个字段拆分为一个字符,并将位置更改为7.2pt。因此对于每个字符,它在左侧位置以7.2pt递增,并且公式加上1。