vb收银小票打印
本人用VB做一个超市收银系统(毕业设计),最后收银小票该如何打印啊?可不可以用报表形式?
希望有代码!谢谢 --------------------编程问答-------------------- 用vb自带的报表就可以吧我觉得 --------------------编程问答-------------------- 你可以写成一个打印函数,通过PRINTER的方法进行定位打印
printer.currentx=10
printer.currentx=10
printer.print "收银小票"
printer.enddoc
--------------------编程问答-------------------- Set rsa = New ADODB.Recordset
rsa.ActiveConnection = db
rsa.CursorLocation = adUseClient
rsa.Close
sql01 = "select * from P_workposition1 where forkNo ='" & combo_Sel & "'"
rsa.Open sql01
If rsa.RecordCount <> 0 Then
Printer.FontSize = 12
Printer.Print "叉车整车测试数据"
Printer.FontSize = 10
Printer.Print " 车号", combo_Sel
Printer.Print "----------------------"
Do
Printer.Print " 试车员:", rsa(0)
Printer.Print " 车型:", rsa(1)
Printer.Print "单位:", " km/h"
Printer.Print " 前进一档速度", rsa(2)
Printer.Print " 前进二档速度", rsa(3)
Printer.Print " 倒退一档速度", rsa(4)
Printer.Print " 倒退二档速度", rsa(5)
Printer.Print " 测试时间:", rsa(6)
Printer.Print " "
rsa.MoveNext
Loop Until rsa.EOF
Printer.Print "----------------------"
Printer.Print Now
Printer.Print ""
Printer.EndDoc --------------------编程问答-------------------- 向打印机发送ASCII码打印控制符,参考下列语句用法:
Private Sub Command1_Click()
Open "LPT1" For Output As #1
For I = 1 To 5
Print #1, Chr(10) '控制换行,同Chr(13)
Next
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
Print #1, Chr(14); "ABCDEFGHIJKL" '宽体每行40字符
Print #1, Chr(27); "IA" '恢复正常字体
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
Print #1, Chr(27); "IB"; "ABCDEFGHIJKL" '横向扩展每行40字符
Print #1, Chr(27); "IC"; "ABCDEFGHIJKL" '纵向扩展每行80字符
Print #1, Chr(27); "E"; "ABCDEFGHIJKL" '加重黑体
Print #1, Chr(27); "F" '取消加重黑体
Print #1, Chr(27); "IA" '恢复正常字体
Print #1, Chr(27); "4"; "ABCDEFGHIJKL" '斜体
Print #1, Chr(27); "5" '取消斜体
Print #1, Chr(27); "0"; "ABCDEFGHIJKL" '打印每吋6行改8行
Print #1, Chr(27); "1"; "ABCDEFGHIJKL" '重置行间隔为7/72
Print #1, Chr(27); "2"; "ABCDEFGHIJKL" '重置行间隔为1/6
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
'Print #1, Chr(12) '控制换页
Close #1
End Sub
参考上述代码,
使用 Open "LPT1" For Output As #1 语句打开打印机
使用 Print #1, "ABCDEFGHIJKL" 语句打印"ABCDEFGHIJKL"
WIN98下能打印中文,WINXP下能打印英文字符及数字,打印机为EPSON针打
代码中CHR()表示打印控制符(各打印机有不同),CHR()后的" "内属控制打印效果.
打印到那,纸张停走,不象用PRINTER对象即使打印一行,一张纸照样走完.
补充:VB , 数据库(包含打印,安装,报表)