我在程序中需要使用打印机打印文件, 在我自己的机器上没有任何问题, 文件可以直接发送到打印机中进行打印, 但是放到另一台机器上就出现了问题, 而且是在链接打印机的时候就出现了错误, 我链接打印机是如下判断
lRet 和lHPrint都是long类型数据
strPrinterName = Printer.DeviceName
lRet = OpenPrinter(strPrinterName, lhPrint, vbNullString)
If lRet = 0 Then
   MsgBox "Err.Desc = " & Err.Description & "=============Err.Num=" & Err.Number
End If每次链接打印机的时候都出现错误, 但是弹出的错误信息是空, 错误代码是0, 请高手指教

解决方案 »

  1.   

    你有没有判断当前Printer对象是否有效?又:既然都能操作Printer对象了,还要OpenPrinter干什么?
      

  2.   


    我要使用API函数向打印机发送文件进行打印, 使用 OpenPrinter 、StartDocPrinter等API将一个文件发送到打印机, 每步的时候都需要进行判断, 现在使用OpenPrinter这个API的时候返回的结果就是错误的
      

  3.   

    你有没有检查 strPrinterName 是否为空?
      

  4.   


    问一下为什么OpenPrinter函数在调试状态和运行状态返回的结果不同, 我作了一个测试程序, 在调试状态的时候是可以打开, 返回的结果是1, 但是生成exe以后在运行返回的结果就是0, 请高手给点指点
      

  5.   

    既然无法调试,那么用 GetLastError 和 FormatMessage 取得错误信息,显示出来。