问个关于StrConv的有关问题
问个关于StrConv的问题
如上图，代码：
For i = 1 To LV1.ListItems.Count
s = LV1.ListItems(i).Text
If Len(StrConv(s, vbFromUnicode)) > 8 Then
s = Left(s, 8)
Else
Do Until Len(StrConv(s, vbFromUnicode)) > 7
s = s & " "
Loop
End If
问题是：打印时第一个名称“试验111111111”无法与其它名称对齐
------解决方案--------------------
跟字体有关吧？每个字母或数字实际占用的宽度可能是不同的（比如 1 最窄，W 比较宽）。
试试使用 vbTab 制表符来对齐。
如上图，代码：
For i = 1 To LV1.ListItems.Count
s = LV1.ListItems(i).Text
If Len(StrConv(s, vbFromUnicode)) > 8 Then
s = Left(s, 8)
Else
Do Until Len(StrConv(s, vbFromUnicode)) > 7
s = s & " "
Loop
End If
问题是：打印时第一个名称“试验111111111”无法与其它名称对齐
------解决方案--------------------
跟字体有关吧？每个字母或数字实际占用的宽度可能是不同的（比如 1 最窄，W 比较宽）。
试试使用 vbTab 制表符来对齐。