vb 6 如何接收或攔截印表機沒紙的錯誤訊息及清除(編號：1441)

各位前輩先進
小弟不材請教一些問題。
目前小弟使用VB6.0 在 NT 4.0 WrokStation 上開發程式，想要接收或攔截印表機沒紙的錯誤訊息，卻不知如何著手。
小弟在程式中使用
Printer.Print "ABCDEFG"
Printer.Print "1234567890"
Printer.EndDoc
這些指令來列印，印表機接在 LPT1 上。
小弟試過用
ON ERROR GOTO "LINE"
"程式碼 ─ 列印

EXIT SUB

LINE
"處理錯誤函式
END SUB
不過似乎沒有用。
請問各位前輩先進有沒有其他方法或指令可以接收或攔截印表機沒紙的錯誤訊息及清除錯誤訊息。
承蒙賜教，不勝感激！