打印机控制（跪求）

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

    找了一下，没有额外的接口来满足楼主的要求，按这些接口的约定，只要返回值不是错误，所有的数据都已经成功发送，MSDN上还说了，如果打印的东西很大，就会失败，也说明不成功发送时会返回失败。另：楼主的结贴率为0
      

  2.   

    用系统函数Printing and Print Spooler Functions