在vfp中如何控制打印機來打印條碼?
在vfp中條碼已經生成,但沒法控制打印機,不知能否打印?如何打印?
或者通過別的方法(第三方控件等等)也行,
請大蝦不吝賜教,分不夠再送!
代碼如下:
...
比如:
BCSTR='10101110110001001001000101111010100111001001101010111001010011101001110101110011100101101100101'
?????往下如何寫代碼
可以參考以下VB的代碼:
...
Printer.DrawWidth = 1
Printer.ScaleMode = vbTwips
Dim x As Integer
x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips)
Dim y As Integer
y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips)
Dim intheight As Integer
intheight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips)
For i = 1 To Len(BCSTR)
bcd = Mid(BCSTR, i, 1)
Select Case bcd
Case "0"
'Form1.Line (50 + i*100, 50)-Step(1*100, 100), , BF
Case "1"
Printer.Line (50 + i * 18.5, 50)-Step(18.5, 1000), , BF
End Select
Next i