cprint.cls

vb+sql 用于公交点钞结算和报表结合的相关软件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

'打印字符
Public Sub PrintDoc(ByVal sPort As String)
Dim asTmp() As String, sTmp As String
Dim i As Integer
Dim lCrc As Long
Dim sCrc As String
On Error GoTo err

    setport sPort
    SetLineDis 18
    splite sPrnStr, asTmp
    
    For i = LBound(asTmp) To UBound(asTmp)
        sTmp = asTmp(i) & Chr(7) & Chr(7)
        PrintStr sTmp
    Next i
    
'    sCrc = StrConv(sPrnStr, vbUnicode)
'    lCrc = Crc(sCrc, 2001)
'
'    sTmp = "认证码:" & CStr(lCrc) & Chr(7) & Chr(7)
'    PrintStr sTmp
    PrintStr vbCrLf & Chr(7) & Chr(7)
    PrintStr vbCrLf & Chr(7) & Chr(7)
    PrintStr vbCrLf & Chr(7) & Chr(7)

    closeport
    Exit Sub
    
err: closeport
    MsgBox "打印机有问题，请重新启动计算机，如果重起后问题依然存在请与中心联系。", vbCritical, "提示信息"
End Sub

'开始打印
Public Sub NewDoc()

    sPrnStr = ""
End Sub

'追加打印内容
Public Sub AddTxt(ByVal sTxt As String)

    sPrnStr = sPrnStr & sTxt
End Sub

'追加特定打印内容
Public Sub AddTxtTitle()

    sPrnStr = sPrnStr & _
            "  郑 州 市 公 交 公 司 " & vbCrLf & "     实 交 现 金 单   " & vbCrLf
End Sub

'取得打印串
Public Function GetPrintStr() As String

    GetPrintStr = sPrnStr
End Function


Public Property Get Ver() As String
    Ver = App.Major & "." & App.Minor & "." & App.Revision
End Property