vb打印问题

Question

大家好，问个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
但是怎样判断打印是否成功呢？

Answer 1

不成功会有错误
Private Sub Command1_Click()
    On Error GoTo ErrHandler    Printer.Print "dsff"
    ....
    Printer.EndDoc
    
    sqlstr = "update ..."
    If DBexecute(sqlstr, DBconnect) Then
    End IfExitEntry:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbCritical
    Resume ExitEntry
End Sub