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
除非打印之前先检查打印机态 是否缺纸等
但这样也不能保证打印过程中不出现问题呀,比如卡纸等
好的办法是将打印和更新数据库做成两块
打印机自带缓存，小故障可以手工排除后继续打印，程序不需要关心。
相关问答：
我想写一个asp读取本地机子的网瞳的功能，需要用vb写一个dll 在网上找了一下，把下面的段拷入vb工程里：
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
各位，请问钩子是怎么运行的啊？请先看看我写的代码：
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
以下� ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
功能：在输入点的坐标后，画出对应的点；在画了点后，可以修改点的坐标，并从新画；重复直到图形轮廓画完。并可以将点的坐标作为文本文档输出。
我不知道怎么能实现，谢谢！
用PictureBox实现吧,需要对坐标单位� ......
