vb6控制ESC/POS指令打印

QQ：954486673

微信：13822155058

淘宝：https://shop73172356.taobao.com/

Public Type DOCINFO

pDocName As String

pOutputFile As String

pDatatype As String

End Type

Public CR As String

Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Public Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Public Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long

Public Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long

Public Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Public Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long

Public Sub Print_axis(P1 As String, str As String)

Dim PrintinfByte() As Byte

Dim lhPrinter As Long

Dim lReturn As Long

Dim lpcWritten As Long

Dim lDoc As Long

Dim sWrittenData As String

Dim MyDocInfo As DOCINFO

PrintinfByte = StrConv(str, vbFromUnicode) '将要打印的信息转化成字节数组，这样才能算出准确的打印长度，直接用len函数不行

lpcWritten = UBound(PrintinfByte) + 1

CR = Chr(13) & Chr(10)

lReturn = OpenPrinter(P1, lhPrinter, 0)

If lReturn = 0 Then

Exit Sub

End If

MyDocInfo.pDocName = "标签"

MyDocInfo.pOutputFile = vbNullString

MyDocInfo.pDatatype = vbNullString

lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)

Call StartPagePrinter(lhPrinter)

lReturn = WritePrinter(lhPrinter, ByVal str, lpcWritten, lpcWritten)

lReturn = EndPagePrinter(lhPrinter)

lReturn = EndDocPrinter(lhPrinter)

lReturn = ClosePrinter(lhPrinter)

End Sub

Private Sub Command3_Click()

Dim printstr as string

Dim I as integer

printstr = Chr(27) & Chr(64) '初始化

printstr = printstr + Chr(27) & Chr(74) & Chr(23) '执行n/144英寸走纸

For i = 0 To 3 '页头空行

printstr = printstr + Chr(13) & Chr(10)

printstr = printstr + " IC卡补卡票据 "

printstr = printstr & Chr(27) & Chr(74) & Chr(10)

printstr = printstr & Chr(27) & Chr(33) & Chr(0)

printstr = printstr + "--------------------------------"

printstr = printstr & Chr(27) & Chr(74) & Chr(10)

printstr = printstr + "卡号：" + Trim(Text7) + " 姓名：" + Trim(Text2)