vb 如何获取默认打印机的状态

[rivflg]

如何获取默认打印机的状态，包括缺纸、卡纸、无连接等状态，还有将某文件打印后，如何得知打印成功？

[lyserver]

捕获打印错误，如：
On Error Resume Next
'基于Printer对象的打印代码
'...
Debug.Print Err.Description, Err.Number

[xiemeilin]

要看你的打印机时什么接口的，若是并口的话可直接读并口。并口的每个针脚代表不同的意思，如果没记错的话，并口14针脚代表是否缺纸。

[vbman2003]

楼上可不可以示例一下vb读并口的方法？
通常这个多用C做的dll来解决.....

[lxq19851204]

[Quote=引用 3 楼 vbman2003 的回复:]
楼上可不可以示例一下vb读并口的方法？
通常这个多用C做的dll来解决.....
[/Quote]

vbman2003： 是不是这个？
Option Explicit
Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Declare Function GetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Declare Function SetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Declare Function InstallWinIoDriver Lib "WinIo.dll" (ByVal DriverPath As String, ByVal Mode As Integer) As Boolean
Declare Function RemoveWinIoDriver Lib "WinIo.dll" () As Boolean
Public IOStat As Boolean
'************************************************************
'* 函数名称：GetPrnStat                                     *
'* 功能：根据打印机的内存地址，检测打印机的目前工作状态     *
'* 参数：lptport: 要检测的打印机的端口号，如LPT1:           *
'* 返回值：打印机的工作状态值。                             *
'*         0：正常 1：缺纸 2：无联系 3：异常(其他错误)      *
'* 调用：本模块中的API函数InitializeWinIo和GetPortVal       *
'* 备注：检测的内存地址，是在打印端口所在的基地址上加1；    *
'* 作者：谷霖                                               *
'* LPT1口的基地址为&H378；LPT2口的基地址为&H278             *
'************************************************************
Public Function GetPrnStat(ByVal LptPort As String) As Long
    Dim PrnAddr As Long
    On Error Resume Next
    If IOStat = False Then IOStat = InitializeWinIo()
    If IOStat Then
        If UCase(LptPort) = "LPT1:" Then
            PrnAddr = &H379
        ElseIf UCase(LptPort) = "LPT2:" Then
            PrnAddr = &H279
        End If
        GetPortVal PrnAddr, GetPrnStat, 1
    Else
        GetPrnStat = &HFF
    End If
    GetPrnStat = GetPrnStat And &HF8
    Select Case GetPrnStat
    Case &H68, &H58, &H70
        GetPrnStat = 1 '缺纸
    Case &H78
        GetPrnStat = 2 '无联系
    Case &HD8
        GetPrnStat = 0 '正常
    Case Else
        GetPrnStat = 3 '异常
    End Select
End Function

'*************************************************************************
'* 函数功能：检查打印机的状态主函数                                      *
'* 输入参数：PrintName 要检测的打印机名称                                *
'* 输出参数：checkprinterr                                               *
'* 检查结果(0：正常 1：打印机缺纸 2：打印机无联系 3：打印机异常          *
'*          4：没有安装打印机 5：打印机名称错误)                         *
'*************************************************************************
Public Function CheckPrintErr(ByVal PrintName As String) As Long
    'CheckPrintErr参数说明
    '0：没有错误
    '1：打印机无联系
    '2：打印机缺纸
    '3：没有安装打印机
    Dim printjieguo As Long
    Dim i As Long, k As Long
    On Error GoTo ErrCheckPrint
    
    If Printers.Count = 0 Then
        CheckPrintErr = 4      '没有安装打印机
        Exit Function
    End If
    '检测发票打印机是否可以联系
    For i = 0 To Printers.Count - 1
        If (Printers(i).DeviceName = PrintName) Then
            k = k + 1
            Exit For
        End If
    Next
    If k = 0 Then              '打印机名称错误
        CheckPrintErr = 5
        Exit Function
    End If
    Set Printer = Printers(i)
    
    CheckPrintErr = GetPrnStat(Printer.Port)
    Exit Function
ErrCheckPrint:
    CheckPrintErr = 3
    Exit Function
End Function

[xiemeilin]

我记得枕善居有个读并口的实例。

[xiemeilin]

http://www.mndsoft.com/blog/article.asp?id=825这是枕善居的链接，他本身也是调用c写的dll

[vbman2003]

lxq19851204谢了
4楼代码先收藏，空下来研究下，最近太忙了....