如何在VB中用Print输出垂直方向的数字
如何在VB中用Print输出垂直方向的数字
[解决办法]
在word找一些垂直字体,记住字体名称，好像前面都有 "@ "，如 "@宋体 "等
me.FontName= "@宋体 "
me.print "123456 "
如果是打印输出
printer.FontName= ......
[解决办法]
刚给你试一下，VB里面就有很多@字体，不过数字要全角的才能产生垂直（横倒）效果
[解决办法]
你可以使用LOGFONT，在MSDN中搜一下，就有答案了。
[解决办法]
可能要用API的textout了，可以实现任意角度的旋转，网上搜一下，很多
[解决办法]
用得着那么复杂吗，每个字符后面加个换行符
[解决办法]
我也刚刚用到,写了个函数，可以用，希望你优化一下^_^
****************************************************************************
'函数：CutString(s,10)
'功能：将字符串按等宽的比列换行输出
'调用：CutString( "123456789 ",3)
'参数：Str:待截取的字符串,BrN:换行的字符个数
'****************************************************************************
Function CutString(Str As String, BrN As Integer) As String
Dim n As Integer
Dim s1 As String
n = Len(Str)
s1 = " "
s2 = " "
For i = 1 To n
If i Mod BrN = 0 Then
s1 = Left(Str, BrN)
Str = Replace(Str, s1, " ")
s2 = s2 & Space(2) & s1 & Chr(10)
End If
Next
CutString = s2
End Function
