打印机控制（跪求）

用以下代码给打印机发送数据后，怎么检测成功发送了多少数据？？？？
  '打开打印机
  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用什么函数实现检测成功发多少送数据

解决方案 »

  1.   

    老打印口centronic)只有硬件握手信号没有计数功能。现在的usb，虽然有4跟线，+5v,0V,clock,data.。从上述电路结构可以看出，是没有反馈信号或计数信号的。从软件的协议中也没有此功能。只能说在输出的过程中，检测打印机不报警，就说明信号已经输出去了。一般简单的控制都是采用开环的方法，即数据输出后就不管了，至于中间打印电缆断线、打印针断了都是不管的。如果一定要测简单的方法1.把打印的程序分段，每段打印完没有报警，就说明已经输出。2.使用串口打印机，就知道输出多少数据了（自己编个串口发送）3.另外，外部加硬件电路帮你测，之后反馈给电脑
      

  2.   

    用打印机的系统函数Printing and Print Spooler Functions