请问怎样使任意字符串的长度均变为设定的长度？或者说多割少补。（这里的长度指textwidth长度）

Question

dim  ss as string*30所有的ss都为30个字母或15个文字 保持

Answer 1

比如：需要10个字符长度，
sub SetToLength(s as string,n as long)
   if len(s)>n then
      s=left(s,n)
   end if
   if len(s)<n then
      s=s + space(n-len(s))
   end if
end sub

Answer 2

试试format函数，应该可以吧！
语法参考MSDN

Answer 3

with object1 '例如form1, printer 等
  .fontsize = .fontsize * width1 / .textwidth(str1)
  debug.print .textwidth(str1)  '约等于width1
end with