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
除非打印之前先检查打印机态 是否缺纸等
但这样也不能保证打印过程中不出现问题呀,比如卡纸等
好的办法是将打印和更新数据库做成两块
打印机自带缓存，小故障可以手工排除后继续打印，程序不需要关心。
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
我用InstallShield 10.0制作了一个VB安装包
问题是：
在别的机子上安装后，在运行程序的时候，提示dll找不到，不能调用。
我在制作安装包的时候，将exe文件、ini文件、图形控件（ ......
代码如下：
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......
功能：在输入点的坐标后，画出对应的点；在画了点后，可以修改点的坐标，并从新画；重复直到图形轮廓画完。并可以将点的坐标作为文本文档输出。
我不知道怎么能实现，谢谢！
用PictureBox实现吧,需要对坐标单位� ......
