打印源码如下: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这样能打印条码各字体,但我想打一些服装的洗涤标志在上面,我看一些高手们做的条码打印程序中能把这样图标当字体打印出来,但我不会哦,请问哪位大侠指点一下啊!
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这样能打印条码各字体,但我想打一些服装的洗涤标志在上面,我看一些高手们做的条码打印程序中能把这样图标当字体打印出来,但我不会哦,请问哪位大侠指点一下啊!
http://expert.csdn.net/Expert/topic/2069/2069181.xml?temp=.9873011http://expert.csdn.net/Expert/TopicView1.asp?id=2018507