直接写并口控制小票打印机

Imports System.IO
Imports System.Runtime.InteropServices
Public Class DataInfo
    Private mLPTPORT As String '打印机端口
    Private mInitText As String  '初始化参数
    Private mTexts As String() '以数组形式输出
    Private mText As String '打印文本
    Public Property LPTPORT() As String
        Get
            Return mLPTPORT
        End Get
        Set(ByVal Value As String)
            mLPTPORT = Value
        End Set
    End Property
    Public Property ToPrintText() As String
        Get
            Return mText
        End Get
        Set(ByVal Value As String)
            mText = Value
        End Set
    End Property
    Public Property InitPrinterText() As String
        Get
            Return mInitText
        End Get
        Set(ByVal Value As String)
            mInitText = Value
        End Set
    End Property
    Public Property ToPrintTexts() As String()
        Get
            Return mTexts
        End Get
        Set(ByVal Value As String())
            mTexts = Value
        End Set
    End Property
End Class
Public Class Printer
#Region "接口参数"
    Private PARAS As DataInfo
    Public WriteOnly Property InputInfo() As DataInfo
        Set(ByVal Value As DataInfo)
            PARAS = Value
        End Set
    End Property
    Private mStatus As Integer
    Public ReadOnly Property STATUS() As Integer
        Get
            Return mStatus
        End Get
    End Property
#End Region

#Region "本地变量"
    Private LPTPORT As String '端口
    Private hPortP As IntPtr '返回句柄
    Private retval As Boolean  '关闭打印时返回的句柄
    Private outFile As FileStream '打印字符流
#End Region
    Public Sub InitializePrinter()
        If PARAS.InitPrinterText.Trim = "" Then Exit Sub
        LPTPORT = PARAS.LPTPORT
        hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
               OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        mStatus = hPortP.ToInt32
        outFile = New FileStream(hPortP, FileAccess.Write, False)
        Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
        fileWriter.AutoFlush = False
        '打印开始
        fileWriter.Write(PARAS.InitPrinterText)
        fileWriter.Flush()
        fileWriter.Close()
        outFile.Close()
        retval = CloseHandle(hPortP)
    End Sub
    Public Sub PrintText()
        If PARAS.ToPrintText.Trim = "" Then Exit Sub
        LPTPORT = PARAS.LPTPORT
        hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
               OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        mStatus = hPortP.ToInt32
        outFile = New FileStream(hPortP, FileAccess.Write, False)
        Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
        fileWriter.AutoFlush = False
        '打印单据开始
        fileWriter.WriteLine(PARAS.ToPrintText)
        fileWriter.Flush()
        fileWriter.Close()
        outFile.Close()
        retval = CloseHandle(hPortP)
    End Sub
    Public Sub Print(ByVal Text As String)
        If Text.Trim = "" Then Exit Sub
        LPTPORT = PARAS.LPTPORT
        hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
               OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        mStatus = hPortP.ToInt32
        outFile = New FileStream(hPortP, FileAccess.Write, False)
        Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
        fileWriter.AutoFlush = False
        '打印单据开始
        fileWriter.WriteLine(Text)
        fileWriter.Flush()
        fileWriter.Close()
        outFile.Close()
        retval = CloseHandle(hPortP)
    End Sub
    Public Sub PrintTexts()
        If PARAS.ToPrintTexts Is Nothing OrElse PARAS.ToPrintTexts.Length = 0 Then Exit Sub
        LPTPORT = PARAS.LPTPORT
        hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
               OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
        mStatus = hPortP.ToInt32
        outFile = New FileStream(hPortP, FileAccess.Write, False)
        Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
        fileWriter.AutoFlush = False
        '打印单据开始
        For Each s As String In PARAS.ToPrintTexts
            fileWriter.WriteLine(s)
        Next
        fileWriter.Flush()
        fileWriter.Close()
        outFile.Close()
        retval = CloseHandle(hPortP)
    End Sub
    Public Shared Function GetCodeString(ByVal Numbers As String) As String
        If Numbers.Trim = "" Then Return ""
        Dim tmp As String
        For Each s As String In Numbers.Split(" "c)
            tmp &= Chr(CType("&H" & s, Integer))
        Next
        Return tmp
    End Function
#Region "API所需要的必要信息"
    Public Structure DCB
        Public DCBlength As Int32
        Public BaudRate As Int32
        Public fBitFields As Int32
        Public wReserved As Int16
        Public XonLim As Int16
        Public XoffLim As Int16
        Public ByteSize As Byte
        Public Parity As Byte
        Public StopBits As Byte
        Public XonChar As Byte
        Public XoffChar As Byte
        Public ErrorChar As Byte
        Public EofChar As Byte
        Public EvtChar As Byte
        Public wReserved1 As Int16 'Reserved; Do Not Use
    End Structure

    Public Structure COMMTIMEOUTS
        Public ReadIntervalTimeout As Int32
        Public ReadTotalTimeoutMultiplier As Int32
        Public ReadTotalTimeoutConstant As Int32
        Public WriteTotalTimeoutMultiplier As Int32
        Public WriteTotalTimeoutConstant As Int32
    End Structure

    Public Const GENERIC_READ As Int32 = &H80000000
    Public Const GENERIC_WRITE As Int32 = &H40000000
    Public Const OPEN_EXISTING As Int32 = 3
    Public Const FILE_ATTRIBUTE_NORMAL As Int32 = &H80
    Public Const NOPARITY As Int32 = 0
    Public Const ONESTOPBIT As Int32 = 0

    Public Declare Auto Function CreateFile Lib "kernel32.dll" _
       (ByVal lpFileName As String, ByVal dwDesiredAccess As Int32, _
          ByVal dwShareMode As Int32, ByVal lpSecurityAttributes As IntPtr, _
             ByVal dwCreationDisposition As Int32, ByVal dwFlagsAndAttributes As Int32, _
                ByVal hTemplateFile As IntPtr) As IntPtr

    Public Declare Auto Function GetCommState Lib "kernel32.dll" (ByVal nCid As IntPtr, _
       ByRef lpDCB As DCB) As Boolean

    Public Declare Auto Function SetCommState Lib "kernel32.dll" (ByVal nCid As IntPtr, _
       ByRef lpDCB As DCB) As Boolean

    Public Declare Auto Function GetCommTimeouts Lib "kernel32.dll" (ByVal hFile As IntPtr, _
       ByRef lpCommTimeouts As COMMTIMEOUTS) As Boolean

    Public Declare Auto Function SetCommTimeouts Lib "kernel32.dll" (ByVal hFile As IntPtr, _
       ByRef lpCommTimeouts As COMMTIMEOUTS) As Boolean

    Public Declare Auto Function WriteFile Lib "kernel32.dll" (ByVal hFile As IntPtr, _
       ByVal lpBuffer As Byte(), ByVal nNumberOfBytesToWrite As Int32, _
          ByRef lpNumberOfBytesWritten As Int32, ByVal lpOverlapped As IntPtr) As Boolean

    Public Declare Auto Function ReadFile Lib "kernel32.dll" (ByVal hFile As IntPtr, _
       ByVal lpBuffer As Byte(), ByVal nNumberOfBytesToRead As Int32, _
          ByRef lpNumberOfBytesRead As Int32, ByVal lpOverlapped As IntPtr) As Boolean

    Public Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hObject As IntPtr) As Boolean
#End Region
End Class

Public Class CODE
    Public Const C4 As String = Chr(&H34)
    Public Const 联机 As String = Chr(&H11)
    Public Const 解除联机 As String = Chr(&H13)
    Public Shared Function 页长(ByVal i As Integer) As String
        Return GetString("1B 43 " & i.ToString)  '3英寸长
    End Function
    Public Shared Function 解除重打模式() As String
        Return GetString("1B 6E")
    End Function
    Public Shared Function 双向打印() As String
        Return GetString("1B 23 42")
    End Function
    Public Shared Function 行距(ByVal i As Integer) As String
        Return GetString("1B 25 39 00 " & i.ToString) '18
    End Function
    Public Shared Function 高速打印() As String
        Return GetString("1B 44")
    End Function
    Public Shared Function 垂直跳格(ByVal i As Integer) As String
        Return GetString("1B 0B 00 " & i.ToString)   '修改最后两位
    End Function
    Public Shared Function 间距换行(ByVal i As Integer) As String
        Return GetString("1B 23 35 " & i.ToString)  '修改最后一数
    End Function
    Public Shared Function 逆向换行(ByVal i As Integer) As String
        Return GetString("1B 23 38 " & i.ToString) '修改最后一数
    End Function
    Public Shared Function 初始化() As String
        Return GetString("1B 42")
    End Function
    Public Shared Function 下页() As String
        Return GetString("0C")
    End Function
    Public Shared Function 换行() As String
        Return GetString("0A")
    End Function
    Public Shared Function L行距(ByVal i As Integer) As String
        Return GetString("1B 2B " & i.ToString)
    End Function
    Public Shared Function GetString(ByVal Numbers As String) As String
        If Numbers.Trim = "" Then Return ""
        Dim tmp As String
        For Each s As String In Numbers.Split(" "c)
            tmp &= Chr(CType("&H" & s, Integer))
        Next
        Return tmp
    End Function
End Class

使用示意:

Imports LzmTW.PortPrint
Imports LzmTW.Common.SubAndFunction
Public Class OKIPrinter
    Private Shared mPrinter As Printer
    Private Shared mDataInfo As DataInfo
    Private mPrinterInfo As PrinterInfo '读取打印机端口定义
    Private mInitialzePrinterText As String = CODE.初始化 & CODE.页长(3) & CODE.双向打印 & CODE.高速打印 & CODE.行距(18)
    Sub New()
        If mPrinter Is Nothing Then
            mPrinter = New Printer
            mDataInfo = New DataInfo
            mPrinterInfo = New PrinterInfo
            mPrinter.InputInfo = mDataInfo
        End If
    End Sub
    Public Property LocatePrinterInfo() As PrinterInfo
        Get
            Return mPrinterInfo
        End Get
        Set(ByVal Value As PrinterInfo)
            mPrinterInfo = Value
        End Set
    End Property
    Private Sub InitializePrinter()
        mDataInfo.LPTPORT = mPrinterInfo.LPTPORT
    End Sub
    Public Sub 打印(ByVal Bill As 票据, ByVal BillName As String)
        InitializePrinter()
        If BillName.Equals("结算单") Then
            mPrinter.Print(Bill.ToPrint结算单(mPrinterInfo.PrinterType))
        End If
        If BillName.Equals("发票") Then
            mPrinter.Print(Bill.ToPrint发票(mPrinterInfo.PrinterType))
        End If
    End Sub
    Public Sub 打印收费卡(ByVal Card As 收费卡)
        InitializePrinter()
        mPrinter.Print(Card.PrinterText)
    End Sub
    Public Class PrinterInfo
        Public PrinterType As PrinterType
        Public LPTPORT As String
    End Class
End Class
Public Enum PrinterType
    OKI
    LQ
End Enum
Private Function ToPrintOKI发票() As String
        Dim Code As Code
        Dim Leg As String = Space(10)
        Dim tmp As String
        tmp &= Code.页长(5) & Code.双向打印 & Code.高速打印 & Code.行距(21) & Code.下页()
        tmp &= Code.换行() & Code.换行() & Code.间距换行(9)
        tmp &= Leg & String.Format("{0,12}" & CHNFormat(1, 41, True, 收费类型) & "{2,4}  {3,2}   {4,2}", _
       "", 收费类型, 年, 月, 日)
        tmp &= Code.间距换行(2)
        tmp &= Code.换行() & Leg & String.Format("{0,12}" & CHNFormat(1, 26, True, 用户名称) & "{2,12}{3,-24}", _
        "", 用户名称, "", 用户编码)
        'tmp &= Code.换行()
        ' tmp &= Code.换行() & Code.间距换行(8)