- A+
爱普生喷墨L351是什么？
爱普生L351喷墨打印机是一款普遍使用的家用打印机，可以轻松地打印出相片、文件、图表等等。这个打印机通常可以在各大电子数码商店买到。爱普生L351喷墨打印机的用户人群非常广泛，因为这个打印机不仅打印质量高，还拥有一定可靠性和耐用性。但是，有时候这个打印机需要重置，让我们来看看如何清零吧。
什么时候需要清零爱普生L351喷墨打印机？
当你使用爱普生L351喷墨打印机时，你可能需要清零它。清零可以解决许多问题，包括打印机出现故障、打印机未能正常工作等。通常，在以下情况下你需要清零/重置爱普生L351喷墨打印机：
当打印机出现错误代码时
当打印机无法连接到你的计算机时
当打印机无法打印文件时
当打印机在完成打印任务后未能自动关闭时
如何清零爱普生L351喷墨打印机？
下面是清零爱普生L351喷墨打印机的步骤：
打开键盘，按下“Alt”和“F11”键组合，打开VBE窗口。
在VBE窗口中，单击“项目”菜单，然后单击“Microsoft Excel 对象库”以便打开“新项目”对话框。在该对话框中，选择“模板”选项卡，单击“在家使用的凭据”模板，然后单击“确定”按钮。
在Microsoft Excel窗口中单击“开发工具”选项卡以扩展工具栏。
在“开发工具”选项卡上，单击“Visual Basic”按钮以打开Visual Basic编辑器。
在Visual Basic编辑器中，单击“模块”菜单，然后单击“插入模块”以便插入新模块。
在新模块中，复制并粘贴以下代码：
```
Sub EE ()
Dim Response As Integer
Response = MsgBox("Clear ink absorber ?", vbYesNo + vbQuestion, "Clear ink absorber")
If Response = vbYes Then
Call ClearInkAbsorber
End If
End Sub
Sub ClearInkAbsorber()
Dim Counter As Integer
Dim WasIdle As Boolean
Dim TimeOut As Long
TimeOut = Timer
On Error Resume Next
Do
' Exit loop if printer status is ready or if time is greater than 30 seconds
If WasIdle And (PrinterStatus = 3) Then
Exit Sub
End If
If (Timer - TimeOut) > 30 Then
Exit Sub
End If
' Clear flag indicating previous printer state was idle
If Not WasIdle Then
WasIdle = PrinterStatus = 3
End If
' Send 04020201200100 to initialize the service mode
PrinterChannel.SendData Array(4, 2, 2, 1, &H2, &H2, &H1, &H20, &H1, &H0, &H0)
Wait 1
' Send 042101 to query the current ink absorber counter value
PrinterChannel.SendData Array(4, 2, 1, 1, &H2, &H1, &H1)
Wait 1
' If we received a 0500 followed by hex digits, we have absorbent counter value
If (ReceiveState.State = 3) And (ReceiveState.Data(0) = 5) And (ReceiveState.Data(1) = 0) Then
Exit Do
End If
Loop
Counter = ReceiveState.Data(2) + ReceiveState.Data(3) * 256
Counter = Counter + (ReceiveState.Data(4) << 16)
Counter = Counter + (ReceiveState.Data(5) << 24)
' Send 0402020240FF to set the counter value to 0
PrinterChannel.SendData Array(4, 2, 2, 1, &H2, &H2, &H40, &HFF, &H0, &H0, &H0)
Wait 1
' Send 04020102AA to exit service mode
PrinterChannel.SendData Array(4, 2, 1, 1, &H2, &H1, &HAA)
Wait 1
End Sub
Function PrinterStatus() As Integer
Dim FileNumber As Integer
Dim ByteCount As Integer
Dim ByteData() As Byte
FileNumber = FreeFile
Open Printer.Channel For Binary Access Read Write Lock Write As FileNumber
Debug.Print "Start"
ByteData() = Array(&H10, &H0, &H0, &H0, &H0, &H4, &H0, &H0, &H77, &H0, &H1, &H0, &H0, &H0, &H0, &H0)
Write FileNumber, ByteData()
ByteData() = InputB(1, FileNumber)
Debug.Print "Data:"
Debug.Print ByteData()
ByteCount = ByteData(2) * 256 + ByteData(1)
Debug.Print "ByteCount:"
Debug.Print ByteCount
If ByteCount > 4 Then
PrinterStatus = ByteData(5)
Else
PrinterStatus = 0
End If
Close FileNumber
End Function
Sub Wait(seconds)
Dim end_time
end_time = Timer + seconds
While Timer < end_time
DoEvents
Wend
End Sub
```
6. 单击“调试(V)”选项卡，然后单击“编译项目”。如果出现任何错误，请更改您键入的内容。
7. 现在，您可以将喷墨打印机连接到您的电脑上，显然，你得确保你的电脑与喷墨机连接正常。
8. 然后，选中代码窗口的EE()，并点击运行即可。
总结：
通过重置Ink Absorber计数器清零，我们给爱普生喷墨L351打印机赋予了新的生命。如果你的打印机出现了故障、照片打印得不清或其他问题，重置Ink Absorber计数器可能是解决问题的一个好方法。请修改代码，正确设置发件人地址、SMTP服务器等。请记住，执行此过程需要谨慎，否则可能会导致设备损坏。
- 在线微信客服
- 加13296588055 故障咨询
-
- 远程ＱＱ客服
- 加ＱＱ6268980 远程服务
-
