100分求助，怎样用vb做票据打印？？？

Question

我想知道怎样用vb做票据打印的功能，越具体越好，在线等，得到答案就给分

Answer 1

票据如果是套打的话，就用Printer打就行了。例子：Option ExplicitPublic Sub PrintPreview(objPrint As Object)
    objPrint.ScaleMode = vbMillimeters   '为毫米为单位
    objPrint.CurrentX = 8
    objPrint.CurrentY = 10
    objPrint.Print "AAAA"
    
    objPrint.CurrentX = 8
    objPrint.CurrentY = 18
    objPrint.Print "BBBB"
    
    If objPrint Is Printer Then objPrint.EndDoc
End SubPrivate Sub Command1_Click()
    '打印预览时传PICTURE控件
    PrintPreview Picture1
    '打印时传PRINTER打印对象
    PrintPreview Printer
End Sub

Answer 2

以A4纸为例for i = 0 to 210 step 10
  for j = 0 to 300 step 10
    objPrint.CurrentX = i
    objPrint.CurrentY = j
    objPrint.Print "+" & x/10 & "," & y/10
  next j
next i先在空白的票据上打上+号网格，然后用尺量出(1cm也可以估了)每个要打印字段的具体位置（x,y），比如数据库中 rs!姓名 位置是10，15（离左上角的坐标mm）    dim offsetX,offsetY  '用做打印偏移调整
    offsetX = 0 : offsetY = 0
    objPrint.CurrentX = 10 + offsetX 
    objPrint.CurrentY = 15 + offsetY
    objPrint.Print rs!姓名一个一个的字段打下去就ok了

Answer 3

什么叫   打印预览时传PICTURE控件????????????