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
除非打印之前先检查打印机态 是否缺纸等
但这样也不能保证打印过程中不出现问题呀,比如卡纸等
好的办法是将打印和更新数据库做成两块
打印机自带缓存，小故障可以手工排除后继续打印，程序不需要关心。
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
这个程序是固定的，比如cmd.exe
打开CMD后，鼠标在CMD的标题栏可以点击右键和左键，弹出相应的菜单。
我要达到的目的是：无论是左击还是右击CMD的标题栏都不能弹出菜单。
或者能出现菜单也行，但只能出 ......
代码如下：
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
......
功能：在输入点的坐标后，画出对应的点；在画了点后，可以修改点的坐标，并从新画；重复直到图形轮廓画完。并可以将点的坐标作为文本文档输出。
我不知道怎么能实现，谢谢！
用PictureBox实现吧,需要对坐标单位� ......
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
