怎么才知道打印出来的字符串的长度

Question

Printer.Font = "新宋体"
Printer.FontSize = 20Printer.CurrentX = 1000
Printer.CurrentY =1000
Printer.Print "sdfiSDFSD@#$@#666"怎么才知道 "sdfiSDFSD@#$@#666"这个字符串打在纸上的长度
本来想测出每个字的长度，可是数字，小写，大写，还有特殊字符，长度没有办法测出，总不是把数字、大写、小写，等各测出来，再在字符串里统计出有多少个大写，多少个小写吧，那也太麻烦了

Answer 1

有个办法，比较的愚蠢，但是个人觉得容易理解Private Sub Command1_Click()
   Dim str As String
   str = "^&&%%^*祖国&%你好"
   Me.Label1.Caption = str
   Me.Label1.AutoSize = True
   MsgBox Me.Label1.Width
End Sub
明白我这里的意思没。当然你也可以用API，不过用哪个，我忘了，觉得不好用