在vb中如何调用打印机本身的字库?

Question

VB的PRINTER对象中有一项属性可以提取打印机的字库，至于是那个属性，我一时记不清楚了，所以不敢乱说。你自己看看MSDN就知道了。万一还不知道，我明天再回复你。

Answer 1

Private Sub Command1_Click()
Dim i As Long
For i = 0 To Printer.FontCount - 1
  Debug.Print Printer.Fonts(i)
Next i
End Sub

Answer 2

Public prn As Boolean
Private Sub Command1_Click()
    If prn = False Then
        MsgBox "打印机端口没有打开"
    Else
        Print #1, Chr(27) & "U0" & Chr(27) & Chr(51) & Chr(90) & " 1    M      F1520    21         7      10     17             18    1   M      F1520    18       7      10"
        Print #1, " 1    M      F1520    21         7      10     17             18    1   M      F1520    18       7      10"
        Print #1, " 1    M      F1520    21         7      10     17             18    1   M      F1520    18       7      10"
        Print #1, " 1    M      F1520    21         7      10     17             18    1   M      F1520    18       7      10"
    End If
End SubPrivate Sub Command2_Click()
    End
End SubPrivate Sub Command3_Click()
    If prn = False Then Open "LPT1:" For Output As #1
    prn = True
End SubPrivate Sub Command4_Click()
    If prn = True Then Close #1
    prn = False
End SubPrivate Sub Form_Load()End Sub