票据打印问题

Question

我现在在做一个医疗收费软件，在前台收费的时侯，要涉及到打印发票，请大家帮一下忙介绍一下方法

Answer 1

套打用类似于Excel表格这种方式比较灵活。

Answer 2

'====================================================================================
'
'模块名称：打印模块
'
'模块功能：打印税控表
'
'====================================================================================
Private Type Ticket
    iPrice As String
    iShroff As String
End TypeDim iTicket As TicketPublic Sub PrintOut()
    Dim I As Integer, intLeft As Integer, intHeaSpa As Integer
    Dim tmpPrinter As Printer
    Dim iPoint As Currency
    Dim iLen As Integer
    Dim iBoolean As Boolean
    iBoolean = False
    iPoint = 6.3
    prnRight = True
    intLeft = 8    '左移
    intHeaSpa = 1200   '头部空行
    
    'On Error GoTo modPrnErr
    
    For Each tmpPrinter In Printers
        If tmpPrinter.DeviceName = "CarTrans" Then
            Set Printer = tmpPrinter
            Exit For
        End If
    Next
    
    With Printer
        .ScaleMode = vbCharacters ' vbMillimeters
        '.PaperSize = gPrnTicket '130 '109
        .FontName = "宋体"
        .FontSize = 10
        
        .CurrentY = iPoint - 0.1
        .CurrentX = 16 + iLen
        Printer.Print Trim(iTicket.iPrice)
        .CurrentY = iPoint - 0.1
        .CurrentX = 38.8 + iLen
        Printer.Print Trim(iTicket.iShroff)        Printer.NewPage
        Printer.EndDoc
    End With
    Exit SubmodPrnErr:
    
prnRight = False
MsgBox "打印机出错，请注意打印机是否设置。", vbOKOnly + vbInformation, "系统提示"
    
End SubPublic Sub PrnInfo()
    With iTicket
        .iPrice = "100"
        .iSeriesPrice = "小王"
    End With
    If MsgBox("打印支票吗？", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub
    Call PrintOut
End Sub

Answer 3

我们用的发票估计和你的差不多
我是直接通过坐标来打的
这样的话可能麻烦点，但只要你有打印机，第一个位置试出来以后，其实也蛮快的如：     Printer.FontSize = 字体大小
     Printer.FontName = 字体名称
     
     Printer.CurrentX = x坐标
     Printer.CurrentY = y坐标
     Printer.Print 打印内容

Answer 4

套打用类似于Excel表格这种方式比较灵活。朋友，你好！
不知道有没有实例，我们单位也有一个程序是用这种方式实现的
可是不知道办法？