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
除非打印之前先检查打印机态 是否缺纸等
但这样也不能保证打印过程中不出现问题呀,比如卡纸等
好的办法是将打印和更新数据库做成两块
打印机自带缓存，小故障可以手工排除后继续打印，程序不需要关心。
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
我用VB调用Word 嵌入VB窗体中(这些都是正常)
然后在桌面打开另一个word a.doc
现在问题出来了.....我关闭VB窗体,之前的那个word也正常关闭了
接下来闭关a.doc 会出现问题
我调用的w ......
各位，请问钩子是怎么运行的啊？请先看看我写的代码：
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
以下� ......
用VB中的Timer控件 可以获得时间
但是如果电脑上的时间显示不正确 那岂不是获得的时间也是不正确的
怎么获得正确的时间
连网，从别的地方获得
引用
用VB中的Timer控件 可以获得时间
但是如果电� ......
