打印机控制(跪求)
用以下代码给打印机发送数据后,怎么检测成功发送了多少数据????
'打开打印机
lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
'设置文档
MyDocInfo.pDocName = frmMain.Caption
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = "RAW"
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
'启动线程
Call StartPagePrinter(lhPrinter)
'写入数据
lReturn = WritePrinter(lhPrinter, pByte, 1, lpcWritten)
'结束打印
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
请高手指教一下VB用什么函数实现检测成功发多少送数据
[解决办法]
关注