Private Sub TextBox1_Change()
If Len(TextBox1) = 11 Then
ActiveSheet.PrintOut
DoEvents
TextBox1 = “”
End If
End Sub
Excel中textbox内用扫描枪扫入内容后自动打印
最新推荐文章于 2022-11-26 09:45:09 发布
Private Sub TextBox1_Change()
If Len(TextBox1) = 11 Then
ActiveSheet.PrintOut
DoEvents
TextBox1 = “”
End If
End Sub