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 ,  数据库(包含打印，安装，报表)