vb打印问题

大家好，问个vb打印问题


printer.print "dsff"
.....
....


Printer.EndDoc


打印成功后我将执行

sqlstr = "update vc_yh set pr=' 已打印 ',czry='" & user & "',czrq=to_date('" & Format(Get_NowDate, "YYYY-MM-DD ") & "','yyyy-mm-dd ') where clsbdh='" & Trim(Text1(0).text) & "'  "
If DBexecute(sqlstr, DBconnect) Then
End If


但是怎样判断打印是否成功呢？

---

不成功会有错误
VB code:
Private Sub Command1_Click()
On Error GoTo ErrHandler

Printer.Print "dsff"
....
Printer.EndDoc

sqlstr = "update ..."
If DBexecute(sqlstr, DBconnect) Then
End If

ExitEntry:
Exit Sub
ErrHandler:
MsgBox Err.Description, vbCritical
Resume ExitEntry
End Sub

---

除非打印之前先检查打印机态 是否缺纸等
但这样也不能保证打印过程中不出现问题呀,比如卡纸等

好的办法是将打印和更新数据库做成两块

---

打印机自带缓存，小故障可以手工排除后继续打印，程序不需要关心。