vb barcodectrl打印条形码为空白？

vb barcodectrl打印条码为空白？？？

VB code

  StrSql = " Select * from sysCutterInfo  Where Part_No ='" & strpn & "' and IsPr =0  Order By Cutter_ID "  Rs.Open StrSql, CnServer, adOpenStatic, adLockReadOnly, adCmdText                If Rs.RecordCount = 0 Then      MsgBox "PN编号输入有误,请核对！", vbInformation, "Info"      Exit Sub   End If      For PintFor = 0 To Rs.RecordCount - 1      BarCode.value = Trim(Rs.Fields("Cutter_ID"))            For Each prn In Printers     '''这是我指定打印到条码打印机上去.         If prn.DeviceName = StrPrint Then              Set Printer = prn              Exit For         End If      Next prn      Printer.Print BarCode.value    ''''这里是打印条码       Printer.EndDoc     Rs.MoveNext   Next

条码打印机上能打印出来，但都是空白的。。。
Printer.Print BarCode.value 我这样把命令发送给打印机有问题吗 ？请指教
谢谢！




[解决办法]
可以打出条码，证明打印机接收到了数据，出空白条码，应该是打印位置的问题或者打印的内容的参数不对，检查一下参数有没有传递错误和打印位置的问题。

查看更多 下一篇