| 票据打印问题 |
| [ 来源：ITWENKU 时间：2006-9-5 15:47:48 | 浏览：369人次
] |
| |
|
我现在在做一个医疗收费软件，在前台收费的时侯，要涉及到打印发票，请大家帮一下忙介绍一下方法
DataReport
OR
Print
发票的栏目是现成的，关键是要把内容准确的打印到指定地方
套打用类似于Excel表格这种方式比较灵活。
'====================================================================================
'
'模块名称：打印模块
'
'模块功能：打印税控表
'
'====================================================================================
Private Type Ticket
iPrice As String
iShroff As String
End Type
Dim iTicket As Ticket
Public 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 Sub
modPrnErr:
prnRight = False
MsgBox "打印机出错，请注意打印机是否设置。", vbOKOnly + vbInformation, "系统提示"
End Sub
Public Sub PrnInfo()
With iTicket
.iPrice = "100"
.iSeriesPrice = "小王"
End With
If MsgBox("打印支票吗？", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub
Call PrintOut
End Sub
我们用的发票估计和你的差不多
我是直接通过坐标来打的
这样的话可能麻烦点，但只要你有打印机，第一个位置试出来以后，其实也蛮快的
如：
Printer.FontSize = 字体大小
Printer.FontName = 字体名称
Printer.CurrentX = x坐标
Printer.CurrentY = y坐标
Printer.Print 打印内容
套打用类似于Excel表格这种方式比较灵活。
朋友，你好！
不知道有没有实例，我们单位也有一个程序是用这种方式实现的
可是不知道办法？
|
|
 |
推荐文章 |
|
