如何使用VB.Net通过POS打印机打印Bill [英] How to Print Bill by POS Printer using VB.Net
本文介绍了如何使用VB.Net通过POS打印机打印Bill的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
那里,
如何从POS打印机的数据库打印账单。我什么都不知道。
我怎么打印?
谢谢,
hi there,
how can i print bill from database in POS printer. i dont have any idea.
how can i print?
Thanks,
推荐答案
check
POS打印:简单方式 [ ^ ]
Microsoft POS Library for .NET [ ^ ]
如何使用VB.Net打印POS打印机的收据。 [ ^ ]
check
POS Printing: The Easy Way[^]
Microsoft POS Library for .NET[^]
How to Print Receipt by POS Printer using VB.Net.[^]
试试
Dim d isplayString As String
Dim ESC As String = Chr(&H1B)+a+ Chr(0)
Dim ESC2 As String = Chr(&H1B)+@
Dim ESC1 As String = Chr(&H1B)+a+ Chr(1)'Allign Middle
Dim ESC4 As String = Chr(&H1B)+a + Chr(2)'Allign right
Dim ESC5 As String = Chr(&H1B)+! + Chr(17)'双高字体模式
Dim ESC6 As String = Chr(&H1B)+! + Chr(1)'取消双高字体模式
strSQl =从vewSalesInvoice选择*,其中DocNo ='&strDocNo&'
Dim da As New SqlDataAdapter(strSQl,cnn)
Dim dt As New DataTable
da.Fill(dt)
Dim strCustomer作为String
Dim strMemo As String
strMemo = dt.Rows(0)(TokenNo)
strCustomer = dt.Rows(0 )(名称)
displayString = vbNewLine
displayString + = ESC1 + ESC5 + CNm + ESC6 + vbNewLine
displayString + = ESC1 + 班达拉加山拉特纳普拉路。 + vbNewLine
displayString + = ESC1 +Cash Receipt+ vbNewLine
displayString + =----------------- ----------------------
displayString + = vbNewLine
displayString + = ESC +Transaction #:+ strDocNo
displayString + = ESC + vbNewLine
displayString + =Date:+ Date.Today()+ vbTab.ToString()+Time:
displayString + = DateAndTime.Now()。ToLongTimeString()+ ESC
displayString + = ESC + vbNewLine
displayString + =Cashier:+ CStr(GlobalUserName)+ vbTab.ToString()
displayString + = vbNewLine
displayString + =Customer:+ strCustomer
displayString + = vbNewLine
displayString + =备注:+ strMemo
displayString + = vbNewLine
displayStri ng + =---------------------------------------
displayString + = vbNewLine
displayString + = ESC +#+Item+ vbTab.ToString()+Rate+ vbTab.ToString()+Qty+ vbTab.ToString ()+Total+ vbTab.ToString()+Desc。
displayString + = vbNewLine
displayString + =--------- ------------------------------
displayString + = vbNewLine
Dim dblGrossTot As Double
Dim dblDiscount As Double
Dim dblNetTotal As Double
Dim dblPaid As Double
Dim dblBalRetuned As Double
'为数据集的每一行迭代循环。
dblDiscount = dt.Rows(0)(LineDiscount)
dblNetTotal = dt.Rows(0)(TranValue)
dblPaid = dt。行(0)(付费)
dblBalRetuned = dt.Rows(0)(BalanceReturned)
如果dt.Rows.Count> 0然后
Dim k As Integer
Dim n As Integer
k = dt.Rows.Count - 1
n = 1
Do while not k< 0
Dim strItemCode As String
Dim strItemName As String
Dim dblRate As Double
Dim dblQty As Double
Dim dblLineTotal As Double
strItemCode = dt.Rows(k)(ItemNumber)
strItemName = dt.Rows(k)(Description)
dblRate = FormatNumber(dt.Rows(k)(RegPrice),2)
dblQty = -dt.Rows(k)(Qty)
dblLineTotal = dblQty * dblRate
dblGrossTot = dblGrossTot + dblLineTotal
displayString + = ESC4 + n.ToString +
displayString + = strItemCode +
displayString + = FormatNumber(dblRate。 ToString,2)++ dblQty.ToString + vbTab.ToString()+ vb Tab.ToString()+ FormatNumber(dblLineTotal.ToString,2)
displayString + = ESC + vbNewLine
displayString + = ESC + strItemName + vbTab.ToString()
displayString + = ESC + vbNewLine
k = k - 1
n = n + 1
循环
displayString + =---------------------------------------
displayString + = vbNewLine
displayString + = ESC4 +GROSS TOTAL:+ vbTab.ToString()+ vbTab.ToString()+ FormatNumber(dblGrossTot.ToString,2)
displayString + = vbNewLine
displayString + = ESC4 +DISCOUNT:+ vbTab.ToString()+ vbTab.ToString()+ FormatNumber(-dblDiscount.ToString,2)
displayString + = vbNewLine
displayString + = ESC4 +NET TOTAL:+ vbTab.ToString ()+ vbTab.ToString()+ FormatNumber(dblNetTotal.ToString,2)
displayString + = vbNewLine
displayString + =--------- ------------------------------
displayString + = vbNewLine
displayString + = ESC4 +PAID:+ vbTab.ToString()+ vbTab.ToString()+ FormatNumber(dblPaid.ToString,2)
displayString + = vbNewLine
displayString + = ESC4 +BAL。已恢复:+ vbTab.ToString()+ vbTab.ToString()+ FormatNumber(dblBalRetuned.ToString,2)
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = ESC1 +感谢您购物
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
displayString + = vbNewLine
ADRport.Open()
ADRport.Write(displayString)
ADRport.Close()
结束如果
Catch ex As Exception
MsgBox(ex.ToString())
结束尝试
Try
Dim displayString As String
Dim ESC As String = Chr(&H1B) + "a" + Chr(0)
Dim ESC2 As String = Chr(&H1B) + "@"
Dim ESC1 As String = Chr(&H1B) + "a" + Chr(1) 'Allign Middle
Dim ESC4 As String = Chr(&H1B) + "a" + Chr(2) 'Allign right
Dim ESC5 As String = Chr(&H1B) + "!" + Chr(17) ' Double hight font mode
Dim ESC6 As String = Chr(&H1B) + "!" + Chr(1) ' Cancel Double hight font mode
strSQl = "Select * from vewSalesInvoice where DocNo ='" & strDocNo & "'"
Dim da As New SqlDataAdapter(strSQl, cnn)
Dim dt As New DataTable
da.Fill(dt)
Dim strCustomer As String
Dim strMemo As String
strMemo = dt.Rows(0)("TokenNo")
strCustomer = dt.Rows(0)("Name")
displayString = vbNewLine
displayString += ESC1 + ESC5 + CNm + ESC6 + vbNewLine
displayString += ESC1 + "Ratnapura Rd, Bandaragama." + vbNewLine
displayString += ESC1 + "Cash Receipt" + vbNewLine
displayString += "---------------------------------------"
displayString += vbNewLine
displayString += ESC + "Transaction #:" + strDocNo
displayString += ESC + vbNewLine
displayString += "Date: " + Date.Today() + vbTab.ToString() + "Time: "
displayString += DateAndTime.Now().ToLongTimeString() + ESC
displayString += ESC + vbNewLine
displayString += "Cashier: " + CStr(GlobalUserName) + vbTab.ToString()
displayString += vbNewLine
displayString += "Customer: " + strCustomer
displayString += vbNewLine
displayString += "Memo: " + strMemo
displayString += vbNewLine
displayString += "---------------------------------------"
displayString += vbNewLine
displayString += ESC + "# " + "Item" + vbTab.ToString() + "Rate" + vbTab.ToString() + "Qty" + vbTab.ToString() + "Total" + vbTab.ToString() + "Desc."
displayString += vbNewLine
displayString += "---------------------------------------"
displayString += vbNewLine
Dim dblGrossTot As Double
Dim dblDiscount As Double
Dim dblNetTotal As Double
Dim dblPaid As Double
Dim dblBalRetuned As Double
'Iterate loop for each row of the Data Set.
dblDiscount = dt.Rows(0)("LineDiscount")
dblNetTotal = dt.Rows(0)("TranValue")
dblPaid = dt.Rows(0)("Paid")
dblBalRetuned = dt.Rows(0)("BalanceReturned")
If dt.Rows.Count > 0 Then
Dim k As Integer
Dim n As Integer
k = dt.Rows.Count - 1
n = 1
Do While Not k < 0
Dim strItemCode As String
Dim strItemName As String
Dim dblRate As Double
Dim dblQty As Double
Dim dblLineTotal As Double
strItemCode = dt.Rows(k)("ItemNumber")
strItemName = dt.Rows(k)("Description")
dblRate = FormatNumber(dt.Rows(k)("RegPrice"), 2)
dblQty = -dt.Rows(k)("Qty")
dblLineTotal = dblQty * dblRate
dblGrossTot = dblGrossTot + dblLineTotal
displayString += ESC4 + n.ToString + " "
displayString += strItemCode + " "
displayString += FormatNumber(dblRate.ToString, 2) + " " + dblQty.ToString + vbTab.ToString() + vbTab.ToString() + FormatNumber(dblLineTotal.ToString, 2)
displayString += ESC + vbNewLine
displayString += ESC + strItemName + vbTab.ToString()
displayString += ESC + vbNewLine
k = k - 1
n = n + 1
Loop
displayString += "---------------------------------------"
displayString += vbNewLine
displayString += ESC4 + "GROSS TOTAL :" + vbTab.ToString() + vbTab.ToString() + FormatNumber(dblGrossTot.ToString, 2)
displayString += vbNewLine
displayString += ESC4 + "DISCOUNT :" + vbTab.ToString() + vbTab.ToString() + FormatNumber(-dblDiscount.ToString, 2)
displayString += vbNewLine
displayString += ESC4 + "NET TOTAL :" + vbTab.ToString() + vbTab.ToString() + FormatNumber(dblNetTotal.ToString, 2)
displayString += vbNewLine
displayString += "---------------------------------------"
displayString += vbNewLine
displayString += ESC4 + "PAID :" + vbTab.ToString() + vbTab.ToString() + FormatNumber(dblPaid.ToString, 2)
displayString += vbNewLine
displayString += ESC4 + "BAL. RETUNED :" + vbTab.ToString() + vbTab.ToString() + FormatNumber(dblBalRetuned.ToString, 2)
displayString += vbNewLine
displayString += vbNewLine
displayString += ESC1 + "Thank You for shopping"
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
displayString += vbNewLine
ADRport.Open()
ADRport.Write(displayString)
ADRport.Close()
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
这篇关于如何使用VB.Net通过POS打印机打印Bill的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文