打印源码如下:Function PrintLabel()    Dim ErrNumber%, ErrMsg$, RET%, i, Msg$, Valid%, TrainNo$, X%, TicketNo$, CodeMsg$
    Dim xPos%, yPos%, fontName$, fontSize%, fontBold%, fReload%, fDataID%
    Dim counts%, status% 
    Printer.Print ""                 ' Start to print
    Printer.Print "^XA"              ' Start of ticket
    Printer.Print "^LH20,20^FS"      ' Lable home position
    Printer.Print "^BY2,3,60^FS"     ' Bar code field default instruction
    Printer.Print "^FO0,0^AE^FDSample Label^FS"
    Printer.Print "^FO0,30^B3^FD12345678^FS"    ' Print string with Windows font
    fDataID = 1
    status% = PrintFontZpl(0, 120, "Windows True Type Font", "Times New Roman", 30, 1, fDataID, True)
    
    fDataID = 2
    status% = PrintFontZpl(0, 160, "天地电脑Chinese String", "Arial", 35, 1, fDataID, True)
    
    ' Data ID equals to 1 and string data is not changed, so data is no need to reload
    ' (Reload false set to False).
    fDataID = 3
    status% = PrintFontZpl(0, 200, "Windows True Type Font", "Times New Roman", 30, 1, fDataID, False)
    
    Printer.Print "^XZ"          ' end of label    PrintLabel = status%
    
End Function这样能打印条码各字体,但我想打一些服装的洗涤标志在上面,我看一些高手们做的条码打印程序中能把这样图标当字体打印出来,但我不会哦,请问哪位大侠指点一下啊!