我开发了一个Restaurant Billing Web App(非桌面应用程序,因为要求是在浏览器中运行的Web应用程序)使用ASP.NET Web Forms C# 4.0
。现在新的要求是POS热敏打印机收据打印。我对POS很新,但不知怎的,我设法构建并运行了一个示例Windows窗体应用程序,使用c#在POSIFLEX PP6800 Thermal Receipt Printer
上打印。
问题是我无法在Localhost网站上使用相同的代码进行打印。我使用的是OPOS CCO
,OposForDotNetAssemblies-1_13_000
。
我的问题是:
我正在使用的代码是:
using POS.Devices;
private OPOSPOSPrinter Printer = null;
protected void Button1_Click(object sender, EventArgs e)
{
Printer = new OPOSPOSPrinterClass();
// Open the printer.
Printer.Open("PosPrinter");
Printer.ClaimDevice(1000);
Printer.AsyncMode = true;
Printer.DeviceEnabled = true;
Printer.ResultCode;
Printer.PrintNormal(2, "\x1B|cA\x1B|2CHeading\x1B|1C\n"+DateTime.Now.ToString("D")+"\n\n" );
Printer.CutPaper(1);
Printer.Close();
}
有趣的是没有错误,但是我听到Beeps直到超时,然后打印机在一行中打印一些点和字符而没有别的。 Windows窗体中没有发生这种情况。提前谢谢。
答案 0 :(得分:0)
Public Sub GiftReceipt()
尝试
Dim displayString As String
Dim ESC As String = Chr(&H1B)
displayString = ESC + "!" + Chr(1) + ESC + "|cA" + "Store Name" + ESC + "|1lF"
displayString += ESC + "|cA" + "Store Address" + ESC + "|1lF"
displayString += ESC + "|2C" + ESC + "|cA" + ESC + "|bC" + "Gift Receipt" + ESC + "|1lF" + ESC + "|1lF"
displayString += ESC + "|N" + ESC + "!" + Chr(1) + " Transaction #: " + vbTab.ToString() + "105" + ESC + "|1lF"
displayString + =“Date:”+ Date.Today()+ vbTab.ToString()+“Time:”
displayString += DateAndTime.Now().ToLongTimeString() + ESC + "|1lF"
displayString += " Cashier: " + CStr(_currSess.Cashier.Number) + vbTab.ToString() + "Register: " + CStr(_currSess.Register.Number) + ESC + "|1lF" + ESC + "|1lF"
displayString += ESC + "|2uC" + " Item Description Quantity" + ESC + "|N" + ESC + "!" + Chr(1) + ESC + "|1lF" + ESC + "|1lF" + " "
'Iterate loop for each row of the Data Set.
For k As Integer = 0 To TransactionSet1.TransactionEntry.Rows.Count - 1
'Checking for each row which has selected in DataGrid item.
If CType(dgTransactionList.Item(k, 0), System.String) = "True" Then
'Get the Item value from selected row.
Dim item As String = dgTransactionList.Item(k, 1).ToString()
Dim itemValue As String = String.Empty
If item.Length > 11 Then
'如果项长度大于11,则将项0的子串取为11。 item = item.Substring(0,11) 其他 在项目字符串中“添加”,直到长度为11。 虽然item.Length< = 11
item += " "
End While
End If
displayString += item + vbTab.ToString()
Dim desc As String = dgTransactionList.Item(k, 2).ToString()
Dim descValue As String = String.Empty
If desc.Length > 20 Then
'If Description length is greater then 20, then take substring of item 0 to 20.
desc = desc.Substring(0, 20)
Else
While desc.Length <= 20
'Adding " " in Description string until length 20.
desc += " "
End While
End If
displayString += desc + vbTab.ToString()
Dim qnty As String = dgTransactionList.Item(k, 3).ToString()
Dim qntyValue As String = String.Empty
If qnty.Length > 3 Then
'If Quantity length is greater then 20, then take substring of quantity 0 to 3.
qnty = qnty.Substring(0, 3)
Else
While qnty.Length <= 3
'Adding " " in Quantity string until length 20.
qntyValue += " "
qnty += " "
End While
End If
qntyValue += qnty.Trim()
displayString += qntyValue
displayString += ESC + "|1lF" + " "
End If
Next k
displayString += ESC + "|1lF"
displayString += ESC + "|cA" + "Thank You for shopping" + ESC + "|1lF"
displayString += ESC + "|cA" + _currSess.Configuration.StoreName + ESC + "|1lF"
displayString += ESC + "|cA" + "We hope you'll come back soon!" + ESC + "|1lF" + ESC + "|1lF" + ESC + "|fP"
_currSess.Register.SetActivePrinterNumber(0)
Dim objRp As Object = _currSess.Register.ReceiptPrinter
objRp.PrintNormal(2, displayString))
objRp.Release()
MsgBox("Gift Receipt printed Successfully.")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
答案 1 :(得分:0)
我最近开发了一个POS Web应用程序 它使用热敏打印机打印收据,它使用本地打印机
你只需使用javascript来捕获容器或.....你的内容
然后只需使用window.print()来打印它,打印出适合我的收据