Code Problem Con't

D

DS

Heres the code, Sorry.
Thanks
DS

Private Sub checkStatus(ByVal status As Long)

'select the checkboxes to display the current printer status
If (status And ASB_NO_RESPONSE) = ASB_NO_RESPONSE Then
ChkNoRsp.Value = 1
Else
ChkNoRsp.Value = 0
End If

If (status And ASB_UNRECOVER_ERR) = ASB_UNRECOVER_ERR Then
ChkUnRcvErr.Value = 1
Else
ChkUnRcvErr.Value = 0
End If

If (status And ASB_AUTORECOVER_ERR) = ASB_AUTORECOVER_ERR Then
ChkAtRcvErr.Value = 1
Else
ChkAtRcvErr.Value = 0
End If

If (status And ASB_PANEL_SWITCH) = ASB_PANEL_SWITCH Then
ChkPSw.Value = 1
Else
ChkPSw.Value = 0
End If

If (status And ASB_OFF_LINE) = ASB_OFF_LINE Then
ChkOffLine.Value = 1
Else
ChkOffLine.Value = 0
End If

If m_reforOfflineSt <> ChkOffLine.Value Then
m_reforOfflineSt = ChkOffLine.Value
End If

If (status And ASB_WAIT_ON_LINE) = ASB_WAIT_ON_LINE Then
ChkWaitRcv.Value = 1
Else
ChkWaitRcv.Value = 0
End If

If (status And ASB_PRINTER_FEED) = ASB_PRINTER_FEED Then
ChkPaFeed.Value = 1
Else
ChkPaFeed.Value = 0
End If

If (status And ASB_MECHANICAL_ERR) = ASB_MECHANICAL_ERR Then
ChkMecErr.Value = 1
Else
ChkMecErr.Value = 0
End If

If (status And ASB_AUTOCUTTER_ERR) = ASB_AUTOCUTTER_ERR Then
ChkCutErr.Value = 1
Else
ChkCutErr.Value = 0
End If

If (status And ASB_PRINT_SUCCESS) = ASB_PRINT_SUCCESS Then
ChkFinPrnt.Value = 1
Else
ChkFinPrnt.Value = 0
End If

If (status And ASB_RECEIPT_END) = ASB_RECEIPT_END Then
ChkRctEnd.Value = 1
Else
ChkRctEnd.Value = 0
End If

If (status And ASB_JOURNAL_END) = ASB_JOURNAL_END Then
ChkJnlEnd.Value = 1
Else
ChkJnlEnd.Value = 0
End If

If (status And ASB_BATTERY_OFFLINE) = ASB_BATTERY_OFFLINE Then
Chk00000004.Value = 1
Else
Chk00000004.Value = 0
End If

If (m_DrvN = DRV_NAME_EUT500_CONTINUOUSLY) Or _
(m_DrvN = DRV_NAME_EUT500_NOCUT) Or _
(m_DrvN = DRV_NAME_EUT500_REDUCE) Or _
(m_DrvN = DRV_NAME_EUT500_RECEIPT) Then
Call checkStatusForEU(status)
Else
Call checkStatusForTMBA(status)
End If


End Sub
 
Top