如何在VB中用Print输出垂直方向的数字

Question

如何在VB中用Print输出垂直方向的数字

Answer 1

在word找一些垂直字体,记住字体名称，好像前面都有"@"，如"@宋体"等me.FontName="@宋体"
me.print"123456"如果是打印输出
printer.FontName= ......

Answer 2

你可以使用LOGFONT，在MSDN中搜一下，就有答案了。

Answer 3

可能要用API的textout了，可以实现任意角度的旋转，网上搜一下，很多

Answer 4

我也刚刚用到,写了个函数，可以用，希望你优化一下^_^
****************************************************************************
'函数：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