挑战高难度。。。

Function My_Print(X As Integer, Y As Integer, font As Single, txt As String)Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontBold = True
Printer.FontSize = font
Printer.Print txtEnd Function Open "LPT:" For Binary Access Write As #1
My_Print 1000, 4400, 30, "verdana", "21341325465470"
Close #1
二个问题。
    1，用LPT：口直接传送可不可。不过这个问题你们不回答，我明天可以试出来，关键是二。
    2，如果加载字体。为什么我改过字体printer.font.name=字体后一点用都没。怎么加，能告知道吗？