如何实现文字的特殊排版效果打印.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 12 行

由 于 打 印 机 对 象 Printer具 有 CurrentX、 CurrentY、 TextWidth、 TextHeight等 属 性 和 函 数 ， 要 实 现 任 何 排 版 效 果 都 是 有 可 能 的 。 例 如 ， 要 实 现 文 字 竖 排 ， 可 以 使 用 下 面 的 函 数 ： 
    Public Sub VPrint(objPrint As Object, sPrint As String) 
     Dim x As Integer, i As Integer 
     
     x = objPrint.CurrentX 
     For i = 1 To Len(sPrint) 
     objPrint.Print Mid(sPrint, i, 1) 
     objPrint.CurrentX = x 
     Next 
    End Sub 
    只 需 使 用 VPrint Printer, "热 情 软 件 屋 " 就 可 以 在 打 印 机 上 实 现 竖 排 的 效 果 。 
<END>