怎样获取网络打印机的当前状态？

2005-04-08 05:00:33 647 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Win10打印机状态已暂停？几招教你轻松解决 Win10打印机状态已暂停的问题可能由多种原因导致，包括打印机设置错误、队列未清理、连接不稳定、驱动问题、系统更新不足等。通过本文介绍的几种解决方法，我们可以逐一排查并解决问题。在解决问题时，我们需要耐心和细心，确保每个步骤都正确执行。同时，我们也需要保持对新技术和新方法的学习和探索精神，以便更好地应对各种可能出现的打印机故障。希望本文能帮助大家迅速恢复打印机的正常工作状态，提高工作效率和生活质量。阅读详情

问题一：如题，我的vb代码如下，在OpenPrinter处，返回的结果总是0，但同样的方法用pb返回的却是1，这是怎么回事？

问题二：在OpenPrinter调用成功、已经将打印机访问权限设为最高权限的情况下，为什么我获取的打印状态总是0 ——就绪？

附vb代码：
Public Function PrinterStatus() As String
Dim PrinterName As String '打印机名
Dim result As Long
Dim hPrinter As Long '打印机句柄
Dim ByteBuf As Long '
Dim BytesNeeded As Long '所需的缓冲区大小
Dim PrinterInfo() As Byte '打印机信息存放缓冲区
Dim pDefaults As PRINTER_DEFAULTS '定义打印机访问权限结构
Dim PI2 As PRINTER_INFO_2 '打印机状态信息结构
Dim PrinterStr As String

'********************
'**打开默认打印机
'********************
PrinterName = DefaultPrinterName()
'PrinterName = Printer.DeviceName '获取默认打印机specifies the default data type, environment, initialization data, and access rights for a printer
pDefaults.DesiredAccess = PRINTER_ALL_ACCESS '设置打印机访问权限为完全控制
'pDefaults.pDatatype = vbNullString
result = OpenPrinter(PrinterName, hPrinter, pDefaults) '打开成功返回非零值，失败返回零，hPrinter 为输入出参数，返回打印机句柄
If result = 0 Then
PrinterStatus = "打印机状态：" & Err.LastDllError
'PrinterStatus = "打印机状态:不能访问打印机"
Exit Function
End If

'*********************
'**获取打印机的状态
'*********************

'确定获取打印机信息缓冲区的大小.
BytesNeeded = 0
result = GetPrinter(hPrinter, 2, 0&, 0&, BytesNeeded) '获得指定打印机的属性 BytesNeeded 为输出参数，返回缓冲区大小

'调用GetPrinter获取打印机的状态.
ReDim PrinterInfo(1 To BytesNeeded)
ByteBuf = BytesNeeded
result = GetPrinter(hPrinter, 2, PrinterInfo(1), ByteBuf, BytesNeeded)
If result = 0 Then
PrinterStatus = "打印机状态：" & Err.LastDllError
result = ClosePrinter(hPrinter) '关闭打印机句柄
Exit Function
End If
CopyMemory PI2, PrinterInfo(1), Len(PI2) '提取结构 PRINTER_INFO_2 的内容赋值给Pi2
PrinterStr = CheckPrinterStatus(PI2.Status) '判断打印机的状态
result = ClosePrinter(hPrinter) '关闭打印机句柄

PrinterStatus = "打印机状态：" & PrinterStr '返回打印机状态
End Function

ｐｂ代码：
//window 2000 或windows xp代码
String ls_DefaultPrinterName,ls_DriverName,ls_PortName,ls_Comment
Long ll_PrinterNameSize
Long ll_Handle,ll_cbBuf,ll_cbNeed
Blob lbl_Buffer
long ll_result
boolean bln_Result
long ll_status
String ls_ErrorInfo
Long ll_ErrorCode

PRINTER_DEFAULTS lstr_PrinterDefaul
PRINTER_INFO_2 lstr_PrinterInfo
PRINTER_DEFAULTS pDefaults

SetNull(ls_DefaultPrinterName)
//第一次调用函数取得所需字符缓冲区的长度
GetDefaultPrinter(ls_DefaultPrinterName,ll_PrinterNameSize)
ls_DefaultPrinterName = Space(ll_PrinterNameSize)

//第二次调用函数可获得默认打印机名
GetDefaultPrinter(ls_DefaultPrinterName,ll_PrinterNameSize)

//根据获取默认打印机名打开打印机，调用GetPrinter()函数获取打印机信息
pDefaults.DesiredAccess = PRINTER_ALL_ACCESS
ll_result = OpenPrinter(ls_DefaultPrinterName,ll_Handle,lstr_PrinterDefaul)
If ll_result = 0 Then
ls_ErrorInfo = space(256)
ll_ErrorCode = GetLastError()
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER,0,ll_ErrorCode,0,ls_ErrorInfo,256,0)
Messagebox("api调用错误","错误代码：" + string(ll_ErrorCode) + "~R~n" + "错误信息：" + Trim(ls_ErrorInfo))
Return -1 //打印机打开失败
End If

l_SetBuffer:
lbl_Buffer = Blob(Space (ll_cbBuf))
If NOT GetPrinter(ll_Handle,2,lbl_Buffer,ll_cbBuf,ll_cbNeed) Then
If ll_cbNeed > ll_cbBuf Then
ll_cbBuf = ll_cbNeed
goto l_SetBuffer
Else
ClosePrinter(ll_Handle)
Return -1
End If
End If

//将内存缓冲区内容复制到打印机结构2中
CopyMemory(lstr_PrinterInfo,lbl_Buffer,PRINTER_INFO_2_LEN)
ll_status = lstr_PrinterInfo.status
ClosePrinter(ll_Handle)
return ll_status

...全文