Author:水如烟
以前用过的.不过现在多是用EXCEL打了.那时用在OKI和LQ,两种打印机的控制码是不一样的.
要看提供的控制代码说明.那时我是一个个试.
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 EnumPublic Class 票据 Public 用户编码 As String Public NO As String Public 用户名称 As String Public 所属月份 As String ' ... Public Function ToPrint发票( ByVal PrinterType As PrinterType) As String If PrinterType = PrinterType.OKI Then Return ToPrintOKI发票() Else Return ToPrintLQ发票() End If End Function 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.下页 Return tmp End Function Private Function ToPrintLQ发票() As String Dim Code As Code Dim Leg As String = Space ( 10 ) Dim tmp As String tmp = Code.GetString( " 1B 40 1B 43 0 03 " ) & Code.L行距( 62 ) tmp &= Code.换行() & Code.换行() tmp &= Leg & String .Format( " {0,12} " & CHNFormat( 1 , 39 , True , 收费类型) & " {2,4} {3,2} {4,2} " , _ "" , 收费类型, 年, 月, 日) tmp &= Code.换行() & Leg & String .Format( " {0,12} " & CHNFormat( 1 , 24 , True , 用户名称) & " {2,12}{3,-24} " , _ "" , 用户名称, "" , 用户编码) ' .... Return tmp End Function ' .... End Class
