请教各位高手,在POS收银系统中,怎样控制收银钱箱的打开?
解决方案 »
- vba 几处语句
- ChooseFont问题 怎么设定打开字体对话框默认的字体大小,默认选中-小五
- 难题,急有效立给分:没有源代码的情况下VB5编译的软件中文显示乱码如何解决
- 请问怎么才能把数据库中的记录显示在dbcombo控件中呢?在线等,马上给分。
- 关于DSN的问题?
- Adodc的简单问题,望指教
- 请问熟悉VSS的朋友,在一个Project中添加文件时,如何连带子目录一次性添加。
- 远程文件列表如何实现
- ★★★★★请问怎样用vb和orl数据库进行连接啊,请给出一个简单的查询demo
- VB连Sybase的问题。
- 请问:GetCurrentProcessID OpenProcessToken LookupPrivilegeValue AdjustTokenPrivileges 怎么用啊
- 求使vb中的滚动条能有鼠标滑轮控制的第三方插件
设定在windows下自动开钱箱功能
LPRINT CHR$(27);"|w";CHR$(45);CHR$(n);
n=0 FF走纸命令时钱箱无效
n=1 钱箱1打开
n=2 钱箱2打开
设定在windows下自动开钱箱功能
LPRINT CHR$(27);"|w";CHR$(45);CHR$(n);
n=0 FF走纸命令时钱箱无效
n=1 钱箱1打开
n=2 钱箱2打开这个命令就是打印命令啊!呵呵!
只不过LPRINT命令是 qbasic 的命令,在vb里面用下面的语句试一试?!Private Sub Command1_Click()
Dim strOut As String
StrOut = “CHR$(27);"|w";CHR$(45);CHR$(n);”
‘ 打开打印机端口,其中的”LPT1:”可能需要根据你的打印机设置而改变
Open “LPT1:” For Binary Access Write As #1
‘ 发送给打印机,注意语句的最后一个参数必须是变量
Put #1, ,strOut
‘ 关闭打印机端口
Close #1
End Sub
的方法是对的