printer对象可否调整字间距.txt

VB技巧问答10000例,是一个教程

Printer对 象 没 有 字 间 距 属 性 ， 如 果 你 需 要 ， 大 概 可 以 这 样 做 ： 
    ' n是 间 距 
    Sub PrintIt(s As String, n As Integer) 
     Dim i As Integer 
     For i = 1 To Len(s) 
     Printer.Print Mid(s, i, 1); 
     Printer.CurrentX = Printer.CurrentX + n 
     Next 
    End Sub 
<END>